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.

[macumba]

Free libère le pointeur et rend l'emplacement mémoire disponible, cependant l'adresse mémoire n'est réellement plus "valide" que lorsqu'un autre objet réalloue cet emplacement mémoire, enfin c'est ce que je constatais sur windows NT et Windows XP.


Assigned autrement c'est la méthode qui est utilisé dans la plupart des objets borland pour tester l'existence de l'instance d'un objet, pourquoi ne pas suivre
leur exemple, même si aujourd'hui dans le principe c'est la même chose. Sicette méthode a été créé, ce n'est probablement pas pour rien.

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

Je ne vois pas, quel test est inutile, FreeAndNil est une méthode.

[lio908]

J'ai essayé avec

Code :

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

1
2
3
4
5
constructor TFichier.Create;
begin
   ListeGroupe := TObjectList.Create;
   ListeGroupe.OwnsObjects := true;
end;

puis

Code :

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

1
2
3
4
5
6
7
8
9
constructor TGroupe.Create;
begin
   ListeFace := TObjectList.Create;
   ListeFace.OwnsObjects := true;
   ListePoint := TObjectList.Create;
   ListePoint.OwnsObjects := true;
   ListeCouleur := TObjectList.Create;
   ListeCouleur.OwnsObjects := true;
end;

pour les créations
et enfin

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;

avec

Code :

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

1
2
3
4
5
6
7
destructor TGroupe.Destroy;
begin
   self.ListePoint.Free;
   self.ListeCouleur.Free;
   self.ListeFace.Free;
   inherited Destroy;
end;

et j'ai toujours le même message
Opération de pointeur incorect!!!

[ShaiLeTroll]

la méthode qui est utilisé dans la plupart des objets borland pour tester l'existence de l'instance d'un objet, pourquoi ne pas suivre leur exemple, même si aujourd'hui dans le principe c'est la même chose. Sicette méthode a été créé, ce n'est probablement pas pour rien.

Je crois que macumba, tu ne connais pas Paul TOTH, n'essaye pas de lui apprendre ce qu'il sait mieux que toi

A quel moment, tu voudrais utiliser FreeAndNil ?
Normalement, tu ne passe pas plusieurs fois dans le destructeur, il est vrai qu'avec des objets présents dans plusieurs listes, ça peut être délicat, pour cela, il faut prévoir un système de notification !
La Solution du FreeAndNil fonctionne mais c'est une rustine d'appel successif à un destructeur, ce qui est mal !

Mais dans le cas actuel, cela ne semble pas être le cas (quoi que ???)

Sinon, Assigned, selon les version de Delphi, on a le code, mais c'est surtout conçu pour les pointeurs de procédure, sur les objets, test à nil c'est pareil !

@Lio908
Pourquoi tu continues à utiliser "Groupe.Destroy" alors que l'on a dit qu'il fallait utiliser "Groupe.Free", en plus que cela ne sert à rien !

Pourquoi tu continues à libérer tes objets manuellement par "Groupe.Destroy \ Free", alors que tu as affecté OwnsObjects à true ? As-tu compris à quoi servait OwnsObjects ?
En regardant ton destructeur de TFichier, on voit que tu n'as pas compris !

Tu avais pensé au Delete, effectivement, une fois libéré, autant le supprimer, dans le dernier code, il n'y a pas de Delete, là c'est double libération garantie (une manuelle par boucle, une auto par OwnsObjects)

Tu pourrais ajouter des traces (Journal d'Evènements : CTRL + ALT + V) comme cela, peut-être que tu pourrais affiner l'endroit de l'exception

Code :

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

1
2
3
4
5
6
7
8
9
10
11
destructor TGroupe.Destroy;
begin
   OutputDebugString('self.ListePoint.Free');
   self.ListePoint.Free;
   OutputDebugString('self.ListeCouleur.Free');
   self.ListeCouleur.Free;
   OutputDebugString('self.ListeFace.Free');
   self.ListeFace.Free;
   OutputDebugString('inherited');
   inherited Destroy;
end;

TFichier et TGroupe hérite de TObjet, tu peux omettre le Create, moi par habitude, je le mets, on ne sait jamais si l'on change l'ancêtre durant le dev

[lio908]

Ok
Dans mon raisonnement,
si je met groupe.free, je rentre pas dans le destructeur de groupe qui me permet de faire les listes.free

Mais maintenant si vous me dites que de faire groupe.free implique SI j'ai mis OwnsObjects à true, la destruction des objects des listes + l'object groupe alors OK, tout est détruit et libéré.

Omettre le create, OK mais je défini mes listes ou?

[ShaiLeTroll]

OwnsObjects est initialisée à true par défaut ! - c'est l'une des 1ère choses écrites dans l'aide de la TObjectList
Tu n'as pas besoin de le forcer ! d'où tes erreurs de double libération !
Toujours lire l'aide avant d'utiliser un nouvel objet, cela aurait permis d'éviter une grosse perte de temps


Tu ne rentre pas ??? tu as mis override ?

Je ne parlais pas de la surcharge de Create mais de son inherited !

Code :

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

1
2
3
4
5
6
constructor TFichier.Create;
begin
  inherited Create(); // ça !!!
 
  ListeGroupe := TObjectList.Create; // OwnsObjects = True par défaut
end;

[lio908]

Ok
pour résumer, si j'écris direct fichier.free,

1 ça libère mon object fichier
2 donc la liste des groupes du fichier
3 donc les objects groupe contenus dans cette liste
4 donc par groupe, les 3 listes
5 donc les objects contenus dans ces listes

tout en fait!

pas besoin de boucles...

[Cl@udius]

pas besoin de boucles...

Non pas besoin. C'est l'intérêt d'un TObjectList (avec un OwnsObjects à True, qui est la valeur par défaut à l'appel du constructeur).
De fait, la liste devient propriétaire des objets qu'elle contient, et se chargera donc de libérer ces objets lors de sa destruction.

Conclusion: Un appel à Free, c'est tout.

@+

[lio908]

C'est ce que j'ai fait et plus de defaut

...par contre, j'ai chargé une dizaine de fichier et les aie détruit par cette méthode mais ma quantité de mémoire n'est pas restitué entièrement!

[Paul TOTH]

Ok
pour résumer, si j'écris direct fichier.free,

1 ça libère mon object fichier

oui c'est fait pour ça

2 donc la liste des groupes du fichier

uniquement si le destructeur surchargé de Fichier fait appel à Groupe.Free ListeGroupe.Free car Fichier un est TObject qui ne libère pas ses membres

3 donc les objects groupe contenus dans cette liste

Groupe ListeGroupe étant un TObjectList il détruit les objets qu'il contient quand il est détruit : c'est à ça que cela sert !

4 donc par groupe, les 3 listes

même remarque que pour Fichier

5 donc les objects contenus dans ces listes

tout en fait!

pas besoin de boucles...

EDIT: confusion entre Groupe et ListeGroupe

[Paul TOTH]

Free libère le pointeur et rend l'emplacement mémoire disponible, cependant l'adresse mémoire n'est réellement plus "valide" que lorsqu'un autre objet réalloue cet emplacement mémoire, enfin c'est ce que je constatais sur windows NT et Windows XP.

un destructeur n'efface pas la mémoire occupée par l'objet, elle se contente de la déclarée disponible pour de futures allocation...ce n'est pas pour cela qu'il est "valide" d'utiliser un objet détruit dont l'emplacement mémoire n'est peut-être pas réutilisé.

Assigned autrement c'est la méthode qui est utilisé dans la plupart des objets borland pour tester l'existence de l'instance d'un objet, pourquoi ne pas suivre
leur exemple, même si aujourd'hui dans le principe c'est la même chose. Sicette méthode a été créé, ce n'est probablement pas pour rien.

c'est donc un acte de foi, je ne peux rien contre cela.

Je ne vois pas, quel test est inutile, FreeAndNil est une méthode.

le test dont tu parles dans "Il vaut mieux éviter de tester le nil et utiliser la méthode Assigned pour tester l'existence d'un objet"

[lio908]

Bonjour

uniquement si le destructeur surchargé de Fichier fait appel à Groupe.Free car Fichier un est TObject qui ne libère pas ses membres

groupe.free ou listegroupe.free?
Fichier peut avoir n groupe(s)

Si c'est groupe.free, il me faut les passer en revu dans une boucle dans le destructeur de fichier?

petit rappel pour tout le monde de mon pb:
Fichier a des objects groupe dans 1 liste
Groupe a des objects Point,Couleur,Face dans 3 listes

Question: méthode pour vider/libérer le tout:
solution 1, dans le destructeur de fichier, metre self.listGroupe.free
avec dans le destructeur de groupe,
self.listePoint.free;
self.listeCouleur.free;
self.listeFace.free;
mais dans ce cas il me semble que j'ai mon niveau de mémoire qui baisse.
J'ai chargé 10 fichiers et les ait appelé 3 fois, la mémoire passe de 27% à 40%
(Si je ferme l'appli je retombe à 27%)

solution 2 dans le destructeur de fichier,
je boucle sur ma liste des groupes et détruit le groupe par groupe.free
et dans le destructeur de groupe,
je boucle sur mes liste du groupe et détruit les objects par object.free
methode apparement inutils puisque de base, TObjectList libère tout le monde sur un free.

Donc si j'ai bien compris c'est Solution 1 mais pour l'instant avec perte de mémoire