Discussion :

[exyacc]

ahhhhhhhhhhh pourquoi j'ai écrit "libérer" !! j'ai la reine des neiges qui me hurle dans la tête maintenant satané gamins !

bref

voila ma question.

j'ai une requete qui va par exemple va me donner un résultat de 3 enregistrement pour un certain ID client, et je voudrais mettre ces résultats dans 3 onglets d'un pagecontrol donc
j'ai fait ce petit exemple sans y mettre pour l'instant la requete.

dans ma frame je vais avoir par exemple 3 Tedit et 2 datetimepicker

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
 
var Client : TTabSheet;
      f : integer;
begin
  for f:= 0 to PageControl1.PageCount-1 do
    PageControl1.Pages[0].Destroy;
  for f:= 0 to 3 do begin
    Client := TTabSheet.Create(Self);
    with TFrame2.Create(nil) do
    begin
      Name := 'Client' + intToStr(PageControl1.PageCount);
      Align := alClient;
      Parent := Client;
      edit1.Text := 'monedit n°'+f.tostring;
  end;
  Client.PageControl := PageControl1;
  Client.Caption := 'Abo ' + intToStr(PageControl1.PageCount);
end;
end;

le problème est qu'à chaque fois que je vais utiliser cette fonction, je supprime bien tous les onglets du pagecontrol, mais comment liberer les frames ??

merci

exyacc

[Paul TOTH]

il n'y a rien à faire, elle sera détruite par son Parent.

mais - sans que cela ne change en réalité rien - j'aurais trouvé plus logique d'écrire

Code :

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

1
2
3
 
    Client := TTabSheet.Create(PageControl1);
    with TFrame2.Create(Client) do

[ShaiLeTroll]

Faut commencer par la fin et toujours Free jamais Destroy
Ta boucle devait faire une violation d'accès pour double libération du premier élément

Code :

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

1
2
for i := PageControl1.PageCount - 1 downto 0 do
    PageControl1.Pages[0].Free();

[exyacc]

merci pour vos réponses rapides et efficaces a tous les deux !

cdmt


exyacc

[guillemouze]

et toujours Free jamais Destroy

Petit hors sujet, mais qui m'a fait tomber des nu, dans le guide du langage Delphi qui accompagne mon Delphi Studio 7 Pro, tous les exemples utilisent Destroy et pas Free !

[Paul TOTH]

Petit hors sujet, mais qui m'a fait tomber des nu, dans le guide du langage Delphi qui accompagne mon Delphi Studio 7 Pro, tous les exemples utilisent Destroy et pas Free !

techniquement ça ne charge pas grand chose, Free c'est juste un raccourci pour If Self <> nil then Destroy, ça permet donc d'appeler Free sur un objet qui peut être à nil, mais ça ne permet pas d'appeler deux fois Free sur le même objet par exemple.

et dans l'exemple ci-dessus, l'objet est forcément <> nil.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
var
  o: TObject;
begin
  o := TObject.Create;
  o.Free; // ok - Destroy aussi
  o.Free; // erreur - comme avec Destroy
  o := nil; 
  o.Free; // ok - mais pas Destroy !
  o.Destroy; //erreur - mais pas avec Free
end;

après si on prend en compte ARC, ça change un peu, car Free ne fait rien dans ce contexte, tandis que Destroy peut avoir des effets