Discussion :

[ChPr]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.
• 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ChPr]

- 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
// Destruction asynchrone
  TThread.ForceQueue(nil, procedure
                          begin
                            aPanneau.Free;
                          end);

me donne l'erreur suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

- 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.

[Andnotor]

me donne l'erreur suivante :

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

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 !

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 ?

[ChPr]

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.

... 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.

...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.

[Andnotor]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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.

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.

[ChPr]

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.

[Andnotor]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ChPr]

... 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.

[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.

[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.