Discussion :

[PpPool]

Bonjour à tous,

Je me demande quelle est selon la solution la plus propre pour libérer une TList

1/on détruit l'objet TList et on libère la mémoire associée.

Code :

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

FreeAndNil(MyList);

2/on libére les éléments de la liste au préalable+ensuite on libére l'objet

Code :

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

1
2
3
4
5
6
for PList:=0 to MyList.count-1 do
  begin
    PMyRecord:=MyList.Items[PList];
    Dispose(PMyRecord);
  end;
MyList.free;

Merci de vos lumières

@

[ShaiLeTroll]

La Tlist n'est qu'un Tableau de Stockage
La libération est à la charge du développeur

si tu libère la liste, tu libère l'objet et son tableau, mais les pointeurs à l'intérieur ne seront pas libéré !
Dans le cas d'objet, la TObjectList est très utile car elle libère les objets en fonction de l'option OwnsObjects.

D'ailleurs pourquoi, la Tlist n'aurait pas une propriété OwnsPointers, tout simplement que dans le cas d'un objet, la liste demande à l'objet de se libérer, donc l'objet "sait" ce qu'il doit faire, dans le cas d'un pointeur, dispose ne connait que la longueur occupé par le pointeur et donc agit comme un FreeMem, il ne sait pas libéré les types pointeurs mais juste les types simples (integer, double, ...) et tableau fixe (shortstring, array[0..1] of integer)

Code :

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

1
2
3
4
for PList:=0 to MyList.count-1 do
    Dispose(PMyRecord(MyList.Items[PList]));
MyList.free;
MyList := nil;

Ensuite, le passage par une variable temporaire de pointeur typé ou le cast, est très important pour que le Dispose effectue le Finaliez sur les chaines longues et les tableaux dynamiques, et si c'est un tableau dynamiques de chaines longues, il finalize chaque chaines, ... d'ailleurs si ta structure contient un pointer typé, il sera finalizé, mais si il contient un pointeur non type, il faut que tu fasse explitement de le dipose en castant le pointeur non typé

voir ce sujet
http://www.developpez.net/forums/sho...d.php?t=307572

[PpPool]

La Tlist n'est qu'un Tableau de Stockage
La libération est à la charge du développeur

Code :

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

1
2
3
4
for PList:=0 to MyList.count-1 do
    Dispose(PMyRecord(MyList.Items[PList]));
MyList.free;
MyList := nil;

Ensuite, le passage par une variable temporaire de pointeur typé ou le cast, est très important pour que le Dispose effectue le Finaliez sur les chaines longues et les tableaux dynamiques.

Bonjour ShaiLeTroll,
merci de ta réponse
j'avais un doute sur ce coup là. Merci.

Autre chose, est-il plus propre
de faire
1/

Code :

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

1
2
3
 
MyList.Free;
MyList:=nil;

2/

Code :

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

FreeAndNil(MyList);

[ShaiLeTroll]

J'ai été habitué à Delphi 3 à 7, le FreeAndNil c'est récent ! à partir de 6 ? 7 ?
En fait c'est pareil, le codé généré doit juste être plus long avec FreeAndNil, et je trouve que cette fonction ne fait plus trop objet, j'aime bien le .Free et le := nil (et puis j'en ai bcp dans mes vieux codes), sachant que le second n'est pas systématique, une variable locale n'a pas besoin d'être nullé, alors qu'un membre de classe, c'est recommandé ... je mets le := nil en connaissance de cause, par ce que je sais qu'il sera utile pas pour faire joli !

[PpPool]

[Kaféine]

je trouve que cette fonction ne fait plus trop objet

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure FreeAndNil(var Obj);
var
  Temp: TObject;
begin
  Temp := TObject(Obj);
  Pointer(Obj) := nil;
  Temp.Free;
end;

a mon avis, mieux vaut toujours preferer utiliser les fonctions de la librairie, framework