Discussion :

[Pedro]

Salut à tous

Je me pose cette question:

Je crée une TList qui contient des pointeurs sur des variables. J'en crée une autre qui contient les pointeurs de quelques unes de ces variables.

Si je fais un Clear sur la première TList, est-ce nécessaire de le faire aussi sur l'autre? Parce que normalement, avec clear, les pointeurs ainsi que les variables sur lesquelles ils pointent sont libérées.

Exemple:

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 i:integer;
      p:^integer;
      List1,List2:TList;
begin
  List1:=TList.Create;
  List2:=TList.Create;
  for i:=0 to 100 do
  begin
    new(p);
    p^:=i;
    List1.Add(p); //Ajouter chaque valeur de i
    if (i mod 2)=0 then List2.Add(p);  // Si i est pair, l'ajouter dans List2
  end;
  List1.Clear;
  List2.Clear;
  List1.Free;
  List2.Free;
end;

Dans cet exemple, List1.Clear efface tous les pointeurs et ce qu'ils contienent... Mais si je fais List2.Clear juste après, List2 va resupprimer les objets non?

[qi130]

pas vraiment.....

à chaque New(p), tu alloues (=réserves) une adresse mémoire pour contenir ton integer.
Ensuite, que tu stockes l'adresse de p dans 1 Tlist, ou 2 Tlist, ou 1 fichier, c'est complètement disjoint: si tu supprimes ton fichier, ça ne libère pas la RAM, Idem pour les TList.

[Pierre Castelain]

Attention, tu confonds 2 choses :
Un pointeur est un entier contenant une adresse (une valeur numérique).
New alloue un espace mémoire permettant de stocker une variable du type pointé et inscrit l'adresse de cette zone mémoire dans le pointeur.

Donc, si tu utilise New pour insérer des données dans un TList, il est impératif de libérer la mémoire allouée par un Dispose sur ces mêmes pointeurs avant d'effacer la liste. Sinon, tu vas effacer les pointeurs, mais pas les zones mémoires pointées.

Je ne sais pas si je suis très clair là...

[Pedro]

Ok d'accord... Mais dans le cas des TObjectList, dit que toute la gestion de libération mémoire est implementée dans Clear... Donc dans ce cas là, ce n'est pas la peine de faire ObjectList1[i].Free ?

[Straahd]

Exact, un TList est une liste de pointeur, TObjectListe, une liste d'objets.
Tu peut donc créer la TObjectListe, avec Owned ) True, pour que la liberation de la liste libere les objets. Par contre il me semble dangereux d'avoir 2 liste d'objets qui contienne les mêmes objet, car à la libération de la premiere liste ca fonctionne bien, mais ta deuxieme liste aura des objets qui n'existe plus, en liberant le liste tu risque d'avoir des violations d'acces.

[Pedro]

OK et merci

Pour la libération, il n'y aura pas de problème puisque elles se font l'une après l'autre dans le Destroy de la fiche... Il faut juste les faire dans le bon ordre!