TList de Tlist

Version imprimable

TList de Tlist

Bonjour,
Je vous explique mon problème: J'ai besoin d'une liste de record contenant elle-même une liste de record (je sais, j'aurais du faire une collection:oops: ).
En revanche, quand j'appelle Detruit_Liste, ça ne libère pas totalement la mémoire allouée!
Si qqun aperçoit un bug, merci bcp, moi je suis dessus depuis hier!!

Code:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
type Tgenerale = record
   nom: String;
   attribut: String;
   liste: TList;
end;
Pgenerale=^Tgenerale;
 
type Tsecondaire = record
   numero: Integer;
   nom: String;
end;
Psecondaire=^Tsecondaire;
 
var lstGenerale = TList;
 
 
procdure Remplit_Liste;
var i: Integer;
     MonPgenerale: Pgenerale;
     MonPSecondaire: Psecondaire;
begin
   New(MonPgenerale);
   Pgenerale(MonPgenerale)^.Nom:= 'Liste Generale';
   Pgenerale(MonPgenerale)^.liste:= TList.create;
   for i:=0 to 1000 do
   begin
      New(MonPsecondaire);
      PSecondaire(MonPSecondaire)^.numero:= i;
      PSecondaire(MonPSecondaire)^.nom:= 'toto';
      Pgenerale(MonPgenerale)^.liste.Add(MonPsecondaire);
   end;
   lstGenerale.Add(MonPgenerale);
end;
 
procdure Detruit_Liste;
begin
   while lstGenerale.Count<>0 do begin
      while Pgenerale(MonPgenerale)^.liste.Count<>0 do begin
         Dispose(Pgenerale(MonPgenerale)^.liste[0]);
         Pgenerale(MonPgenerale)^.liste.Delete[0];
      end;
     Pgenerale(MonPgenerale)^.liste.Free;
 
      Dispose(lstGenerale[0]);
      lstGenerale.Delete[0];
   end;
 
   lstGenerale.Free;
end;

Salut

Avant tout, quelques remarques :
- évite, dans la mesure du possible, de faire des cast avec les pointeurs, ils ne servent pas à grand chose.
- définis, dans la mesure du possible, des classes pour éviter la programmation avec des variables globales (pour améliorer l'encapsulation et donc la maîtrise à long terme de ton code)
- tu dois avoir une variable globale MonPgenerale qui perturbe ton programme.

Ma solution pour la destruction :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 procedure Detruit_Liste; begin while lstGenerale.Count<>0 do begin with lstGenerale[0]^ do begin while liste.Count<>0 do begin Dispose(liste[0]); liste.Delete[0]; end; liste.Free; end; Dispose(lstGenerale[0]); lstGenerale.Delete[0]; end; lstGenerale.Free; end;
Je pense que c'est l'utilisation de la variable MonPgenerale qui t'as planté

cdlt

e-ric

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
procedure Detruit_Liste;
var  i,j:integer;
begin
  for i:=0 to  lstGenerale.Count-1 do 
  begin
    with lstGenerale[i] do // pas la pein de ^
    begin
      for j:=0 to liste.Count-1 do 
      begin
        Dispose(PSecondaire(liste[j])); //ou freemem(liste[j],sizeof(PSecondaire)); liste[j] est un pointeur sans pécification de memoir résérver
       //pas la peine liste.Delete[0]; free fait le netoiyage 
      end;
      liste.Free;
    end;
    Dispose(Pgenerale(lstGenerale[i])); 
  end;
  lstGenerale.Free;
end;

18/08/2006, 12h32
zeprogrameur

Bon, je savais pas que le cast avec les pointeurs était déconseillé!
Pour la classe, oui, c'est évident, j'ai juste extrait ce bout de code pour bien qu'on comprenne le problème.
Par contre, je comprends pas bien ce que tu veux dire par "c'est ta variable globale qui fait planter"
18/08/2006, 12h38
e-ric

Concernant les remarques d'Edam, c'est parfaitement vrai mais je voulais conserver une partie du code d'origine et ne pas introduire trop de choses à la fois.

Les cast ne sont pas déconseillés mais il ne servent à rien en l'espèce.

Pour la variable globale, je l'ai déduis car tu utilise une variable non déclarée.

cdlt

e-ric
18/08/2006, 13h12
zeprogrameur

Citation:

Envoyé par e-ric

Concernant les remarques d'Edam, c'est parfaitement vrai mais je voulais conserver une partie du code d'origine et ne pas introduire trop de choses à la fois.

Les cast ne sont pas déconseillés mais il ne servent à rien en l'espèce.

Pour la variable globale, je l'ai déduis car tu utilise une variable non déclarée.

cdlt

e-ric

T'es sûr que ton code marche?
Chez moi, il plante dès le with...
18/08/2006, 13h29
edam

de quel code parl tu??
18/08/2006, 13h32
e-ric

Même question car le code d'Edam n'est pas exactement le même que le mien, qu'est-ce qui plante : la compilation ou l'exécution ? quelle est l'erreur ?

Rem : je n'ai pas testé le code que je t'ai proposé.

e-ric
18/08/2006, 13h39
edam

Citation:

Envoyé par e-ric

Même question car le code d'Edam n'est pas exactement le même que le mien, qu'est-ce qui plante : la compilation ou l'exécution ? quelle est l'erreur ?

Rem : je n'ai pas testé le code que je t'ai proposé.

e-ric

ni le mien :lol:
18/08/2006, 13h44
zeprogrameur

Non, rassurez-vous, ça ne plante pas, c'était de ma faute:oops:
Par contre, toujours le même problème qq soit le code: vous pouvez faire le test vous mettez 2 boutons l'un pour remplir, l'autre pour détruire:
Vous verrez que la mémoire ne se libère pas!
yé né comprends pas:roll:
18/08/2006, 13h48
e-ric

Comment as-tu fait pour détecter la fuite de mémoire ? C'est vraiment cette partie de code qui est à l'originie de la fuite ?
Peux-tu la quantifier ?

e-ric

Ouf, j'ai trouvé, finalement, c'est edam qui avait bon(n'est pas membre chevronné qui veut!):
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 procedure Detruit_Liste; var i,j:integer; begin for i:=0 to lstGenerale.Count-1 do begin with Pgenerale(lstGenerale[i])^ do // pas la pein de ^ begin for j:=0 to liste.Count-1 do begin Dispose(PSecondaire(liste[j])); end; liste.Free; end; Dispose(Pgenerale(lstGenerale[i])); end; lstGenerale.Free; end;
Le pb venait que je faisais un Dispose de la TList sans le caster avec son type (bizarre que le compilateur ne le signale pas!)
En revanche, j'ai du légérement modifié son code (avec le with Pgenerale(lstGenerale[i])^) car le compil me remontait les bretelles (record or object attendu).
En tout cas, merci pour votre aide!

18/08/2006, 20h57
Jipété

Yep !

Citation:

Ouf, j'ai trouvé, finalement

Ça c'est bien ! :mouarf:
Ce qui l'est un peu moins, c'est de nous laisser sur notre faim, car il y avait dans
les posts précédents un truc intéressant (enfin, tout au moins pour moi :) :

Citation:

Comment as-tu fait pour détecter la fuite de mémoire ?

Merci de satisfaire cette curiosité qui sera sûrement utile !
--
jp
19/08/2006, 17h46
zeprogrameur

Mais tout simplement en vérifiant l'état de la mémoire après libération de la TList!
19/08/2006, 18h21
Jipété

Citation:

Mais tout simplement en vérifiant l'état de la mémoire après libération de la TList!

Certes, certes, mais comment ?
Avec des MemoryStatus et ce genre de choses,
ou bien existe-t-il des trucs plus sophistiqués ?
--
jp, complètement ignorant en la matière, là !