TList de Tlist

**zeprogrameur** · 18/08/2006, 11h14

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

).
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 :

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
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;

**e-ric** · 18/08/2006, 11h56

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 :

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
 
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

**edam** · 18/08/2006, 12h11

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
 
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;

**zeprogrameur** · 18/08/2006, 12h32

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"

**e-ric** · 18/08/2006, 12h38

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

**zeprogrameur** · 18/08/2006, 13h12

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...

**edam** · 18/08/2006, 13h29

de quel code parl tu??

**e-ric** · 18/08/2006, 13h32

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

**edam** · 18/08/2006, 13h39

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

**zeprogrameur** · 18/08/2006, 13h44

Non, rassurez-vous, ça ne plante pas, c'était de ma faute

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

**e-ric** · 18/08/2006, 13h48

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

**zeprogrameur** · 18/08/2006, 13h54

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

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
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!

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

Yep !

Ouf, j'ai trouvé, finalement

Ça c'est bien !

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

:

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

Merci de satisfaire cette curiosité qui sera sûrement utile !
--
jp

**zeprogrameur** · 19/08/2006, 17h46

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

**Jipété** · 19/08/2006, 18h21

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à !

TList de Tlist

Delphi

Discussions similaires

Partager

Partager