Discussion :

[Jlmat]

Bonjour à tous,

Éternel débutant je suis!
Enfin je ne sais plus...
j'ai créé un tableau ouvert de TcheckBox qui sont créés dynamiquement et se positionnent sur la Fiche en fonction du nombre d'options d'une procédure:

Code :

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

1
2
3
4
5
6
7
8
 
Var
  FormSelectChamps : TFormSelectChamps;
  ListeBox        : array of TCheckBox;
 
...
 
ListeBox[i] := TCheckBox.Create(FormSelectChamps);

Dans la procédure Destroy de la Fiche, j'écris par exemple:

Code :

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

1
2
3
4
5
6
7
 
procedure TFormSelectChamps.FormDestroy(Sender: TObject);
 var ii : integer;
begin
  for ii := Low(ListeBox) to High(ListeBox) do ListeBox[ii].Destroy;
  SetLength(ListeBox,0);
end;

1. Est-ce correct?
2. Est-ce que si je me contente de supprimer le tableau ListeBox avec Setlength, je vais du même coup libérer ses contenus qui ont été créés dynamiquement aussi?!? N'y aura t-il pas de fuite de mémoire?

Merci

[anapurna]

salut

Code :

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

1
2
3
 
    for ii := Low(ListeBox) to High(ListeBox) do 
       ListeBox[ii].free;

[Jlmat]

Merci anapurna

Ha oui Free à la place de Destroy, c'est mieux!
Donc, si je comprends bien, SetLength ne suffit pas pour éviter les fuites de mémoires?!
Je sais pas vérifier ce problème. Il semble que le débogueur de Delphi 10.3 ne signale pas le problème...

A+

[Andnotor]

Donc, si je comprends bien, SetLength ne suffit pas pour éviter les fuites de mémoires?!

Non, SetLength(0) ne libère rien si ce n'est sa propre liste de ... ! Ici, une liste de pointeurs.

Mais la fiche contient une liste de tous les composants qui lui sont rattachés (de prêt ou de loin) et lance automatiquement leur destruction lorsque elle-même est détruite. Il n'y a aucune raison que l'EDI te signale une fuite quelconque. A ce stade, SetLength(Listbox, 0) seul est correct.

Cela dit, si Listbox (array of) appartenait à la fiche, tu n'aurais même rien à faire puisque en plus de détruire ses composants, elle libérerait aussi cette allocation

[SergioMaster]

Bonjour,

j'ai pris l'habitude d'indiquer un parent aux composants que je crée. Parent est différent de Owner (surtout depuis FMX je dois dire).
Quant au ListBoxArray j'aurais mis pareil un ListBoxArray.free; ou FreeAndNil(ListBoxArray)

[alheuredudejeuner]

Bonjour,

pourquoi ne pas utilise un tobjectlist qui libère les objet qu'il contient sans code si il à les potions par défaut ?

Cordialement

[Paul TOTH]

comme le dit Andnotor, il suffit de placer le tableau dans la fiche est il n'y a rien à faire, c'est un tableau dynamique qui sera détruit et les checkbox seront détruites par leur parent ou owner.

il est également possible d'avoir une autre approche, placer les composants à la souris et initialiser le tableau au chargement

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
 
procedure TForm1Create(Sender: TObject);
var
  Index: Integer;
  Count: Integer;
begin
  SetLength(ListeBox, ControlCount); // préallouer suffisamment de place (si la valeur n'est pas connue)
  Count := 0;
  for Index := 0 to ControlCount - 1 do
  begin
    if Controls[Index] is TCheckBox then
    begin
      ListeBox[Count] := TCheckBox(Controls[Index]);
      Inc(Count);
    end;
  end;
  SetLength(ListeBox, Count); // fixer la taille réelle du tableau
end;

car j'imagine que le but est d'accéder aux CheckBox par un index.

Et si le nombre est connu

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
 
procedure TForm1Create(Sender: TObject);
var
  Index: Integer;
  Count: Integer;
begin
  SetLength(ListeBox, 10);
  Count := 0;
  for Index := 0 to ControlCount - 1 do
  begin
    if Controls[Index] is TCheckBox then
    begin
      Assert(Count < 10, 'Il y a plus de 10 CheckBox sur la fiche');
      ListeBox[Count] := TCheckBox(Controls[Index]);
      Inc(Count);
    end;
  end;
end;

[guillemouze]

Sinon, tu as la TComponentList, qui s'occupe de gérer le retrait des composants si ils sont détruits par la fiche (cf. FreeNotification), ce qui te permet de bien libérer ta mémoire si tu as des composants non présents sur ta fiche, et de ne pas libérer ceux qui l'ont déjà été.

[Jlmat]

Merci à tous pour vos réponses détaillées!


Cela dit Andnotor me permet de ne pas me casser la tête:

ce stade, SetLength(Listbox, 0) seul est correct.

Cela dit, si Listbox (array of) appartenait à la fiche, tu n'aurais même rien à faire puisque en plus de détruire ses composants, elle libérerait aussi cette allocation

à Sergio,

j'ai pris l'habitude d'indiquer un parent aux composants que je crée. Parent est différent de Owner (surtout depuis FMX je dois dire).

Oui, c'est ce que je fais aussi!

à Paul TOTH

toujours plus fort dans "on se la cool douce!"

comme le dit Andnotor, il suffit de placer le tableau dans la fiche est il n'y a rien à faire, c'est un tableau dynamique qui sera détruit et les checkbox seront détruites par leur parent ou owner.

Je suis un peu du genre fainéant, mdr!
Comme tout est créé sur la Fiche, on vire tout et je me contente du close!
jlmat

[Jlmat]

à Paul

C'est amusant en te relisant en détail,

il est également possible d'avoir une autre approche, placer les composants à la souris et initialiser le tableau au chargement

Je suis justement en train d'écrire une procédure pour faire ça avec attraction automatique pour un arrangement automatique dans un tableau en forme d'image.
j'utilise pour cela la technique visuelle du dragdrop!
Je serais prêt à mettre le source, mais c'est juste un petit exemple, j'avais penser le mettre sur "comment ça marche"

J'ai pas trop envie pour l'instant de rédiger un tuto détaillé. Je me réserve cela pour plus tard.

A+