Destruction de composant ne le ramenant pas à nil

Version imprimable

Bonjour à toutes et à tous,

Dans une application, je crée des "Panneau" qui sont des descendants de TPanel. Pour cela je crée un tableau de dimension 3.

Pour créer un tableau, il suffit de cliquer sur la forme.

Pour supprimer un tableau, il faut cliquer sur le tableau lui-même : on le voit disparaître. Pour autant, que j'utilise Destroy ou FreeAndNil, cette instance ne revient pas à nil. Je le vois car en cliquant à nouveau sur la forme, c'est un tableau à un nouvel indice qui se crée au lieu d'être à l'indice libéré.

Voici le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls; type TPanneau = class(TPanel) public Index: Integer; Nom: String; procedure MouseUp(Button: TMouseButton; Shift:TShiftState; X,Y:Integer); override; end; { TForm1 } TForm1 = class(TForm) procedure FormClick(Sender: TObject); private public Panneau: array[1..3] of TPanneau; end; var Form1: TForm1; implementation {$R *.lfm} { TForm1 } procedure TForm1.FormClick(Sender: TObject); var i, j: Integer; begin j:= 0; for i:= 1 to 3 do // if Panneau[i] = nil then if not Assigned(Panneau[i]) then begin j:= i; Break; end; if (j < 1) or (j > 3) then ShowMessage('Indice hors limite j = '+ IntToStr(j)) else begin Panneau[j]:= TPanneau.Create(Self); with Panneau[j] do begin Parent:= TWinControl(Self); Caption:= IntToStr(j); SetBounds(100, 60*i, 200, 30); end; end; end; procedure TPanneau.MouseUp(Button: TMouseButton; Shift:TShiftState; X,Y:Integer); var i: Integer; begin i:= StrToInt(Caption); Destroy; Self:= nil; // FreeAndNil(Self); end; end.
Si vous avez une idée de ce qu'il faut faire pour que l'instance libérée revienne à nil.

Cordialement.

Pierre

On n'invoque jamais le destructeur depuis une méthode de l'objet lui-même à moins d'être absolument certain d'être à son premier niveau d'appel. Si il veut se libérer lui-même il faut passer par une méthode asynchrone.
Dans ton code, comment l'objet TPanneau sait-il qu'il appartient au tableau Panneau[] ?

Un exemple (parmi d'autres) pour une libération correcte (Delphi) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
type
  TSupprimerPanneauEvent = procedure(aPanneau :TObject) of object;
 
  TPanneau = class(TPanel)
  protected
    OnSupprimer :TSupprimerPanneauEvent;
    procedure MouseUp(Button: TMouseButton; Shift:TShiftState; X,Y:Integer); override;
  end;
 
  TForm1 = class(TForm)
    procedure FormClick(Sender: TObject);
  private
    procedure Supprimer(aPanneau :TObject);
  public
    Panneau: array[1..3] of TPanneau;
  end;
 
var
  Form1: TForm1;
 
implementation
 
procedure TForm1.FormClick(Sender: TObject);
var
  i: integer;
begin
  for i := Low(Panneau) to High(Panneau) do
    if not Assigned(Panneau[i]) then
    begin
      Panneau[i] := TPanneau.Create(Self);
 
      with Panneau[i] do
      begin
        Parent      := Self;
        Caption     := IntToStr(i);
        OnSupprimer := Supprimer;
        SetBounds(100, 60*i, 200, 30);
      end;
 
      Exit;
    end;
 
  ShowMessage('Tous les panneaux sont déjà utilisés.');
end;
 
procedure TForm1.Supprimer(aPanneau: TObject);
var
  i: integer;
begin
  for i := Low(Panneau) to High(Panneau) do
    if Panneau[i] = aPanneau then
    begin
      // Panneau[i] à nouveau utilisable
      Panneau[i] := nil;
      Break;
    end;
 
  // Destruction asynchrone
  TThread.ForceQueue(nil, procedure
                          begin
                            aPanneau.Free;
                          end);
end;
 
{ TPanneau }
 
procedure TPanneau.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Assigned(OnSupprimer) then
    OnSupprimer(Self);
end;
 
end.

ps: la procedure anonyme devrait être supportée par FP, pas sûr pour la capture de variable.

11/06/2024, 14h01
ChPr
Citation:

Envoyé par Andnotor

- On n'invoque jamais le destructeur depuis une méthode de l'objet lui-même à moins d'être absolument certain d'être à son premier niveau d'appel. Si il veut se libérer lui-même il faut passer par une méthode asynchrone. ...

Merci "Andnotor" pour cette proposition de code. Pour autant, deux problèmes de compilation :

- Dans l'affectation de OnSupprimer, j'ai remplacé Supprimer par @Supprimer.
- La destruction asynchrone :
Code:

1 2 3 4 5 // Destruction asynchrone TThread.ForceQueue(nil, procedure begin aPanneau.Free; end);
me donne l'erreur suivante :
Code:

1 2 3 Compilation du projet, Cible : project1.exe : Code de sortie 1, Erreurs : 2 unit1.pas(2,27) Error: Illegal expression unit1.pas(3,27) Fatal: Syntax error, ")" expected but "BEGIN" found
Citation:

Envoyé par Andnotor

- Dans ton code, comment l'objet TPanneau sait-il qu'il appartient au tableau Panneau[] ?

Quand j'écris Panneau[j]:= TPanneau.Create(Self);, n'est-ce pas une preuve que le TPanneau appartient à la liste ?

De mon côté, j'ai trouvé une solution pour que la suppression soit totale et remplacée par nil. Dans mon code, j'ai remplacé FreeAndNil(Self) par FreeAndNil(Form1.Panneau[i]);. Cela fonctionne, mais est-ce que cela n'induit pas un autre problème ?

Cordialement.

Pierre.
11/06/2024, 15h13
Andnotor

Citation:

Envoyé par ChPr

me donne l'erreur suivante :

Ah dommage ! Il faudrait alors mémoriser le panneau à détruire et fournir une méthode à ForceQueue.

Citation:

Envoyé par ChPr

Quand j'écris Panneau[j]:= TPanneau.Create(Self);, n'est-ce pas une preuve que le TPanneau appartient à la liste ?

Il appartient à la liste mais n'en à pas conscience, il n'a lui-même aucune référence au tableau. Il sait qui est son propriétaire parce qu'il a un champ Owner, qui est son parent grâce au champ Parent mais là, rien !

Citation:

Envoyé par ChPr

FreeAndNil(Form1.Panneau[i]);. Cela fonctionne, mais est-ce que cela n'induit pas un autre problème ?

C'est pas mieux, voir ma première remarque : un objet ne se détruit jamais lui-même.

Imagine Proc1 qui appelle Proc2, Proc2 libère l'objet ; que se passe-t-il lorsqu'on remonte à Proc1, méthode d'un objet qui n'existe plus ?
11/06/2024, 17h15
ChPr

Citation:

Envoyé par Andnotor

Ah dommage ! Il faudrait alors mémoriser le panneau à détruire et fournir une méthode à ForceQueue. ...

Il me semble que l'erreur indiquée montre plutôt un problème de syntaxe.

Citation:

Envoyé par Andnotor

... Il appartient à la liste mais n'en à pas conscience, il n'a lui-même aucune référence au tableau. Il sait qui est son propriétaire parce qu'il a un champ Owner, qui est son parent grâce au champ Parent mais là, rien ! ...

En effet, si le tableau connaît ce qui le compose, Le panneau n'a pas de référence au tableau.

Citation:

Envoyé par Andnotor

...C'est pas mieux, voir ma première remarque : un objet ne se détruit jamais lui-même. ...

Avant que ça fonctionne, j'avais un champ du panneau que j'affectais après son FreeAndNil : ça a tout de suite fait tilt ! J'ai déplacé ce champ avant la destruction pour que ça fonctionne. Je préférerais la solution que tu m'indiques, pour autant qu'on puisse régler ce problème de syntaxe et de procédure appelée.

Cordialement.

Pierre.

Citation:

Envoyé par ChPr

Il me semble que l'erreur indiquée montre plutôt un problème de syntaxe.

Oui et ce problème se résout par... mémoriser l'objet à détruire et fournir une méthode à ForceQueue ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
type
  TSupprimerPanneauEvent = procedure(aPanneau :TObject) of object;
 
  { TPanneau }
 
  TPanneau = class(TPanel)
  protected
    OnSupprimer :TSupprimerPanneauEvent;
    procedure MouseUp(Button: TMouseButton; Shift:TShiftState; X,Y:Integer); override;
  end;
 
  { TForm1 }
 
  TForm1 = class(TForm)
    procedure FormClick(Sender: TObject);
  private
    ObjASupprimer :TObject;
    procedure DoSupprimer;
    procedure Supprimer(aPanneau :TObject);
  public
    Panneau: array[1..3] of TPanneau;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.FormClick(Sender: TObject);
var
  i: integer;
begin
  for i := Low(Panneau) to High(Panneau) do
    if not Assigned(Panneau[i]) then
    begin
      Panneau[i] := TPanneau.Create(Self);
 
      with Panneau[i] do
      begin
        Parent      := Self;
        Caption     := IntToStr(i);
        OnSupprimer := @Supprimer;
        SetBounds(100, 60*i, 200, 30);
      end;
 
      Exit;
    end;
 
  ShowMessage('Tous les panneaux sont déjà utilisés.');
end;
 
procedure TForm1.DoSupprimer;
begin
  if Assigned(ObjASupprimer) then
    FreeAndNil(ObjASupprimer);
end;
 
procedure TForm1.Supprimer(aPanneau: TObject);
var
  i: integer;
begin
  for i := Low(Panneau) to High(Panneau) do
    if Panneau[i] = aPanneau then
    begin
      // Panneau[i] à nouveau utilisable
      Panneau[i] := nil;
      Break;
    end;
 
  // Destruction asynchrone
  ObjASupprimer := aPanneau;
  TThread.ForceQueue(nil, @DoSupprimer);
end;
 
{ TPanneau }
 
procedure TPanneau.MouseUp(Button: TMouseButton; Shift: TShiftState; X,
  Y: Integer);
begin
  if Assigned(OnSupprimer) then
    OnSupprimer(Self);
end;

Il n'a pas de garantie que le thread s’exécute avant la sortie de la tache actuelle ?

Probablement envoyer d'un message avec Postmessage à la forme pour demander de détruire le panneau

Dans ce code j'ai utilisé l'evenement OnIdle de l'application pour recycler les panneaux

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
 Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls;
 
type
 
  TPanneau = class(TPanel)
  private
    NextFree: TPanneau;
  public
    Index: Integer;
    Nom: String;
    procedure MouseUp(Button: TMouseButton; Shift:TShiftState; X,Y:Integer); override;
  end;
 
  { TForm1 }
 
  TForm1 = class(TForm)
    procedure FormClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    FreeList:TPanneau;
    procedure AppIdle(Sender: TObject; var Done: Boolean);
  public
    Panneau: array[1..3] of TPanneau;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.FormClick(Sender: TObject);
var
  i, j: Integer;
begin
  j:= 0;
  for i:= 1 to 3 do
//    if Panneau[i] = nil then
    if not Assigned(Panneau[i]) then
    begin
      j:= i;
      Break;
    end;
  if (j < 1) or (j > 3) then
    ShowMessage('Indice hors limite  j = '+ IntToStr(j))
  else
  begin
    Panneau[j]:= TPanneau.Create(Self);
    with Panneau[j] do
    begin
      Parent:= TWinControl(Self);
      index := J;
      Caption:= IntToStr(j);
      SetBounds(100, 60*i, 200, 30);
    end;
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnIdle :=  @AppIdle;
end;
 
 
procedure TForm1.AppIdle(Sender: TObject; var Done: Boolean);
var
   t,n:TPanneau;
begin
   t:= FreeList;
   FreeList := nil;
   while t <> nil do
   begin
     n := t.NextFree;
     t.Free;
     t:= n;
   end;
end;
 
 
procedure TPanneau.MouseUp(Button: TMouseButton; Shift:TShiftState; X,Y:Integer);
begin
  TForm1(Parent).Panneau[Index] :=  nil;
  NextFree := TForm1(Parent).FreeList;
  TForm1(Parent).FreeList := Self;
end;
 
end.

11/06/2024, 19h34
Andnotor

Un garbage collector vidé sur OnIdle serait une autre solution, par un thread de travail, une interface IPanneau et on ne s'occuperait même plus de la destruction ; les solutions sont multiples et le moment de la destruction importe peu tant qu'il est asynchrone, seul Panneau[i] := nil est important ;)

PostMessage irait aussi pour autant que ce soit sous Windows. C'est d'ailleurs ainsi qu'est codé TForm.Release sous Delphi.

Citation:

Envoyé par Volid

Il n'a pas de garantie que le thread s’exécute avant la sortie de la tache actuelle ?

On n'est pas en Multitâches ici. TThread.ForceQueue ne fait qu'ajouter une méthode à la file d'attente, y compris depuis la tâche principale.
11/06/2024, 23h14
ChPr

Citation:

Envoyé par Volid

Dans ce code j'ai utilisé l'evenement OnIdle de l'application pour recycler les panneaux

J'ai essayé ce code, ça fonctionne bien :)

Cordialement.

Pierre.

Ce qui me dérange clairement est cette référence à TForm1 dans TPanneau. Ce n'est ni évolutif, ni facile à maintenir.
Mais travailler sur un array ne facilite pas les choses. Avoir une approche plus orientée objet serait plus simple.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls;
 
type
  { TPanneau }
 
  TPanneau = class(TPanel)
  private
    Panneaux :TList;
    Index    :integer;
  protected
    procedure MouseUp(Button: TMouseButton; Shift:TShiftState; X,Y:Integer); override;
  end;
 
  { TForm1 }
 
  TForm1 = class(TForm)
    procedure FormClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  public
    Panneaux :TList;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.FormClick(Sender: TObject);
var
  i: integer;
begin
  i := Panneaux.IndexOf(nil);
 
  if i > -1 then
  begin
    Panneaux[i] := TPanneau.Create(Self);
 
    with TPanneau(Panneaux[i]) do
    begin
      Parent   := Self;
      Panneaux := Self.Panneaux;
      Caption  := IntToStr(i+1);
      Index    := i;
      SetBounds(100, 60 *(i+1), 200, 30);
    end;
  end
  else ShowMessage('Tous les panneaux sont déjà utilisés.');
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Panneaux := TList.Create;
  Panneaux.Count := 3;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  Panneaux.Free;
end;
 
{ TPanneau }
 
procedure TPanneau.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Panneaux[Index] := nil;
  TThread.ForceQueue(nil, @Free);
end;
 
end.

12/06/2024, 09h46
ChPr

Citation:

Envoyé par Andnotor

... Avoir une approche plus orientée objet serait plus simple. ...

Cette solution est effectivement très simple et fonctionnelle.

Je ne comprends pas à quoi correspond, sert cette instruction : Panneaux := Self.Panneaux;

Cordialement.

Pierre.
12/06/2024, 10h10
Andnotor

C'est juste équivalent à Panneaux[i].Panneaux := Form1.Panneaux. TPanneau et TForm1 ont un champ de même nom et tu es dans with Panneaux[i], il faut donc ajouter Self pour référencer Form1.
12/06/2024, 15h40
ChPr

Je vous remercie tous pour les solutions que vous m'avez proposées, que je ne connaissais pas ou à laquelle je n'avais pas pensé (OnIdle).

Mes premiers essais m'ont montré que ce n'était pas la solution ni une bonne idée de supprimer un composant de l'intérieur de lui-même. J'ai retenu qu'il fallait que ça se fasse de manière asynchrone.

La solution que j'ai retenue est une solution à laquelle j'avais pensé avant de faire ce post (sans aller plus loin), que j'avais utilisée il y a longtemps, et que j'ai finalement adoptée : PostMessage.

Encore merci à tous.

Cordialement.

Pierre.