Discussion :

[yupyupxav]

Bonjour,

j'ai une petite question concernant la gestion de mémoire delphi. Je vois partout qu'il ne faut surtout pas oublier de détruire des object que l'on crée.
J'ai crée un object contenant quelques collections:

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
 
 
Type
 TPiperWAT = class
  private
   CTempAlt : TStdCurveCollection;
   CWeight  : TStdCurveCollection;
   CHeadW   : TIntervalledCurveCollection;
   CTailW   : TIntervalledCurveCollection;
  public
   Constructor Create (AOwner: TPersistent);
   Destructor Destroy; override;
 end;
 
 
constructor TPiperWAT.Create;
begin
 CTempAlt:=TStdCurveCollection.Create(AOwner,Tcurve);
 CWeight:=TStdCurveCollection.Create(AOwner,Tcurve);
 CHeadW:=TIntervalledCurveCollection.Create(AOwner,TCurve);
 CTailW:=TIntervalledCurveCollection.create(AOwner,TCurve);
 CWeight.interpolationmethod:=ParallelLow;
end;
 
 
destructor TPiperWAT.Destroy;
begin
 CTempAlt.Free;
 CWeight.Free;
 CHeadW.Free;
 CTailW.Free;
end;

Cet objet gère donc la création et la destruction des collections qu'il contient.

Ma question est la suivante: Dans mon form, j'ai plusieurs objets de type TPiperWat. Je gère leur création dans l'évènement OnCreate du form.
Etant donné que je crée ces objets avec la propriété AOwner = self (mon form, donc), est il utile de prévoir de détruire ces derniers à la fermeture de mon Form (onclose) ou alors cela sera il géré tout seul?

Merci d'avance.
Xavier

[Paul TOTH]

TPiperWAT est un objet simple, il ne sera pas détruit. Ajouter une paramètre AOwner au constructor n'y changera rien.

Pour bénéficier de la destruction automatique par le Owner, il faut dériver de TComponent.

D'autre part je trouve étrange de donner comme Owner des membres de TPiperWAT la fiche puis de les détruire explicitement dans le destructor...tu as probablement fait ce choix car leur constructor demande un TComponent.

en résumé, soit tu fais dériver TPiperWat de TComponent qui sera alors parent de ses membres qu'il n'aura plus besoin de détruire explicitement; soit tu détruis explicitement les TPiperWat dans le OnDestroy de la fiche et tu donnes un Owner à "nil" aux membres de TPiperWat qu'il devra détruire explicitement également.

[yupyupxav]

Merci, cela répond exactement à ma question!