Discussion :

[macumba]

Au point où tu en es tu pourrais ptet essayer d'inclure un outil comme Memcheck ou MemProof, ca t'aiderait rapidement à trouver les fuites mémoire, s'il y en a.

http://delphi.developpez.com/freewar...Point#MemCheck

Pour Paul et Shai pas de souci depuis le temps que je vous lis, je commence à connaitre vos niveaux grands JEDI de Delphi.

[ShaiLeTroll]

lio908, tu as bien mis override pour chaque destructor surchargé ?

Code :

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

1
2
3
4
5
6
7
8
type
  TPoint = class
  ...
  public
    constructor Create...
    destructor Destroy; override;
    ...
  end;

Différence entre un code boucle, utilisant une variable temporaire qui force le type et une boucle sans variable temporaire (correspondant à ce que fait le TObjectList)

Code :

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

1
2
3
4
5
6
7
8
9
 
var
   Point: TPoint;
 
...
       begin
         Point := self.ListePoint.Items[indexPoint] as TPoint;
         Point.Free; // Appel du destructeur de l'object ou Free car c'est un point
      end;

Dans le code, ci-dessus, on sait que Point est un TPoint, le Free va appeler le Destroy du TPoint, tout va bien, c'est fortement type !

Code :

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

1
2
3
4
5
6
 
var
...
       begin
         self.ListePoint.Items[indexPoint].Free; // Appel du destructeur de l'object ou Free 
      end;

Dans le code, ci-dessus, Free va appeler le Destroy de l'instance, pour cela il va regarder son ClassType qui va lui fourni la table des méthodes virtuelles (VMT).

Mauvais Cas, oubli de l'override
Destroy n'est pas indiqué comme override, Destroy existe dans la VMT pour TObject uniquement, tu dois surement avoir un message
"La méthode 'Destroy' cache la méthode virtuelle de la classe de base 'TObject'", cela compile, mais cela pose problème à l'exécution car lors de l'appel Free, il n'y a pas le Destroy de TPoint dans sa VMT mais le Destroy de TObject ! Il n'appele donc jamais le Destroy de TPoint, donc libération manquante !

Bon Cas, override bien mis !
Destroy existe dans la VMT pour TObject et pour TPoint, lorsque tu fais un Free, il va trouver le Destroy de TPoint, et là tes objets seront libérés !

La TObjectList manipule des TObject, on est dans le cas ci-dessus, sans override, la libération est incorrecte !

[lio908]

Effectivement avec le override c'est mieux.

En pas a pas(F7) je rentre dans les destroy a partir de mes listes mais pendant la destruction des points, au bout d'un moment, j'ai
EStackOverflow, 'Débordement de pile'

[ShaiLeTroll]

tu n'as pas oublié Inherited devant Destroy dans tes destructor

Code :

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

1
2
3
4
5
6
destructor TGroupe.Destroy;
begin
   ...
 
   inherited Destroy; // sans l'inherited, cela donne une récursivité, une EStackOverflow indique un recurisivité trop profondre !
end;

En fait, tu devrais reprendre les cours POO de Delphi, chaque mot clé à son importance, on a réussi à faire un débat de 2 pages rien que pour l'oubli de override !

Tu as bien enlevé TOUTES les boucles sur TObjectList, laissant OwnObjects faire son travail automatiquement ?

[lio908]

Tout est détruit et tout se libère
J'avais laissé un destroy en plus de devant le inherited Destroy;

Merci a tous, je solde le sujet mais...
A bientôt