Discussion :

[zeprogrameur]

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]

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]

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]

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]

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]

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