Discussion :

[lio908]

Bonjour
Je continue mon apprentissage...

J'en suis à la destruction de mes objects.
mais j'ai le message suivant sur le free de point
"opération de pointeur incorrecte"

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
destructor TGroupe.Destroy;
var
   indexPoint: integer;
   Point: TPoint;
   indexCouleur: integer;
   Couleur: TCouleur;
   indexFace: integer;
   face: TFace;
begin
   // 1 destruction des objects de la listePoint
   For indexPoint := self.ListePoint.Count - 1 DownTo 0 Do
   Begin
      If self.ListePoint.Items[indexPoint] <> Nil Then
      begin
         Point := self.ListePoint.Items[indexPoint] as TPoint;
         Point.Free; // Appel du destructeur de l'object ou Free car c'est un point
      end;
      self.ListePoint.Delete(indexPoint); // Suppression de l'élément dans la liste
   End;
   Self.ListePoint.Free; // Détruit la liste

Mon groupe à une liste de d'objects points et le groupe fait partie lui-meme d'une listeGroupe dans un object Fichier

[Paul TOTH]

rien ne me saute aux yeux...mais

si ListePoint est un TObjectList, il suffit de faire ListPoint.Free

d'autre part, ton erreur est peut-être dans la façon dont tu charges ta liste

et pour finir, avec un destructor virtuel, tu n'as pas besoin de connaître le type de l'objet pour le détruire
ListePoint[PointIndex].Free
ou
TObject(ListePoint[PointIndex]).Free
suffira (en ajoutant un "override" sur le destructor de TPoint s'il en possède un)

[lio908]

si ListePoint est un TObjectList, il suffit de faire ListPoint.Free

Cela détruira aussi les objects point de la liste?

Si j'ai bien compris, il faut
1 Détruire l'objects
2 Retirer l'object de la liste

3 puis quand liste vide, detruire la liste

Si je met point.destroy c'est pareil que point.free mais dans system, dans Objet.destroy il y a rien entre begin et end???

Code :

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

1
2
3
4
5
6
7
8
9
destructor TObject.Destroy;
begin
end;
 
procedure TObject.Free;
begin
  if Self <> nil then
    Destroy;
end;

que ce passe t il alors?

[lio908]

Tjs pb de destruction d'objet sur le self.listeGroupe.free avec comme message:
"opération de pointeur incorecte"

Premier destructeur

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
destructor TFichier.Destroy;
var
   indexGroupe: integer;
   Groupe: TGroupe;
begin
   // 1 destruction des objects groupe de la listeGroupe de l'objet fichier
   For indexGroupe := self.ListeGroupe.Count - 1 DownTo 0 Do
   Begin
      If self.ListeGroupe.Items[indexGroupe] <> Nil Then
      begin
         Groupe := self.ListeGroupe.Items[indexGroupe] as TGroupe;
         Groupe.Destroy; // Appel du destructeur de l'object
      end;
   End;
   self.ListeGroupe.Free; // Détruit la liste
   inherited Destroy;
end;

second destructeur ou il n'y a pas de message

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
destructor TGroupe.Destroy;
var
   indexPoint: integer;
   Point: TPoint;
   indexCouleur: integer;
   Couleur: TCouleur;
   indexFace: integer;
   face: TFace;
begin
 
   self.ListePoint.Free;
   self.ListeCouleur.Free;
   self.ListeFace.Free;
   exit;

et en partant du principe que le liste.free detruit objects et liste?
A+

[ShaiLeTroll]

Si j'ai bien compris, il faut
1 Détruire l'objects
2 Retirer l'object de la liste
3 puis quand liste vide, detruire la liste

En fait, tu as mal compris, l'utilité de OwnObjects de la TObjectList

ne jamais utilise Destroy !
c'est uniquement dans le cas du override (inherited Destroy) que tu peux l'utiliser !

Enfin, si ListeGroupe est une TObjectList, suffit de la créer en OwnObjects à True, cette liste détruira les objets automatiquement !
Tu n'as pas besoin de faire ta boucle dans ce cas !

Surtout pas de Exit dans un destructeur !
la dernière opération doit être toujours "inherited Destroy", dans le destructor, dans la cas contraire, cela peut provoquer de nombreuses erreurs dont une RunTime error 216 dans les finalization lors que l'on oublie le "inherited Destroy" d'un TComponent (à cause de Owner qui tente de libérer un objet qui l'est déjà)

[Paul TOTH]

...

Si je met point.destroy c'est pareil que point.free mais dans system, dans Objet.destroy il y a rien entre begin et end???
...

blah blah blah !

prend le temps de lire un tuto sur les bases du langage Delphi, tu gagneras du temps.

[macumba]

Outre ce qui a été dit sur le destroy

Code :

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

If self.ListeGroupe.Items[indexGroupe] <> Nil Then

Il vaut mieux éviter de tester le nil et utiliser la méthode Assigned pour tester l'existence d'un objet:

Code :

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

1
2
 if Assigned(self.ListeGroupe.Items[indexGroupe] ) then
...

Pour libérer un objet il vaut mieux utiliser la méthode FreeAndNil quand elle est disponible.

[lio908]

Merci des réponses,
je testerais ce soir dés rentré du boulot

le exit; dans le destructeur était pour éviter de tous effacer pendant les essais
A+

[Paul TOTH]

Outre ce qui a été dit sur le destroy

Code :

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

If self.ListeGroupe.Items[indexGroupe] <> Nil Then

Il vaut mieux éviter de tester le nil et utiliser la méthode Assigned pour tester l'existence d'un objet:

Code :

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

1
2
 if Assigned(self.ListeGroupe.Items[indexGroupe] ) then
...

en quoi est-ce mieux ?

Pour libérer un objet il vaut mieux utiliser la méthode FreeAndNil quand elle est disponible.

Sauf que Free est là justement pour pouvoir être invoqué sans dommage sur un pointeur nul; le test ne sert donc à rien.

[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