TObjectList et libération des objets

Bonne année 2007 à tous.

J'ai besoin d'une confirmation pour ne pas déstabiliser mon programme.

J'ai un TObjectList qui contient un liste de TForm. L'utilisateur peut en appeler autant qu'il veut. Le OwnsObject de mon TObjectList est mis a 'False'

Dans le OnClose de la Form, je mets

Code:

---

Action := caFree

---

Si j'ai bien compris, puisque chaque TForm se détruit elle-même, je ne dois plus détruire l'objet. La seule chose à faire, pour que ce soit propre, c'est de faire un clear de mon TObjectList avant le Free, si toutes les form ont été fermée.

Par contre, comment gérer la libération des form quand l'objectList est détruit? Mon form disparait, mais cela veut-il dire qu'il est bien libéré? (grace au Action := caFree)

Tout ce que le TObjectList fait de particulier, c'est que si OwnsObject est à True, lors d'un Delete d'un objet, celui-ci est libéré (Free).

À noter qu'un appel à Clear correspond à un Delete de tous les éléments : donc tous les objets seront libérés correctement (si OwnsObjects vaut True toujours).

De même, lors de la libération d'un TObjectList, il y a un Clear qui se fait toujours également. Donc faire un Clear avant un Free, c'est redondant ;)

Pour en venir au Action := caFree, cela s'assure en effet que l'espace mémoire associé à la fiche est bien libéré. Donc accéder à la référence de la fiche après un tel OnClose provoquera une EAccessViolation.

Mais dans mon cas, le OwnsObject = False. Donc dois-je faire un clear avant le free pour être sûr que toutes les forms sont libérées?

Imaginez que l'objectList contienne 3 forms. L'utilisateur en détruit deux en les fermant (Action := caFree), puis il détruit le ObjectList (qui contient encore une form vivante et les pointeurs vers les deux forms détruites par l'utilisateur). Comment puis-je être sur que toutes mes forms sont détruites avant que je fasse le free de mon objectList (toujours avec OwnsObject = false)

Merci d'avance

Code:

---

1 2	for i:=0 to MaListe.Count-1 do FreeAndNil(MaListe[i]); MaListe.Free;

---

J'ai essayé cela, mais on ne peut mettre un valeur constante pour un paramètre 'var'.

Puis, si l'utilisateur a fermé 2 fenêtres sur 3, il y en a deux qui n'existe plus, mais qui sont encore avec un pointeur sur le TObjectList.

J'ai essayé ceci

Code:

---

1 2 3 4 5 6 7 8

While MaListe.count > 0 do begin if MaListe[0] <> nil then begin MaListe[0].Free; MaListe.Extract(MaListe[0]); end; end;

---

Mais j'ai encore une access violation. Probablement parce que je MaListe a encore le pointeur vers l'objet qui n'existe plus.

Bref, je suis confus ici...;)

Il y a une gpf, car la liste contient encore une rérérence sur un objet détruit.
Une solution serait de faire

Code:

---

1 2 3 4 5 6

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin action := caFree; Liste.Delete(Liste.IndexOf(self)); end;

---

Oui, très bonne idée, mais les forms ne connaissent la liste....

J'aime pas trop qu'un objet contient la référence de l'objet qui l'a créé. J'ai peur du serpent qui se mord la queue...

Les forms gèrent très bien leur vie grâce au onClose. Mais la liste ne sait pas quand un objet est détruit....

Je ne vois pas d'autre moyen.

Si tu crées une référence, tu es un peu obligé de la mettre à jour pour t'en servir ...

Citation:

---

Envoyé par eponette

J'aime pas trop qu'un objet contient la référence de l'objet qui l'a créé. J'ai peur du serpent qui se mord la queue...

---

C'est une peur non fondée ;)
Les relations entre classes dans lesquelles les deux parties connaissent l'autre côté sont fréquentes, et tout à fait logiques. Je ne vois pas pourquoi tu te casses la tête là-dessus :?

il me semblait que le FreeAndNil était safe...

sinon, entoure-le d'un bloc try

tu peux aussi envisager un message que tu définiras, et qui sera chopé par ta fiche principale, pour ôter de la liste les fiches à fermer : plus propre, non ?

mais c'est plus facile de leur coller une référence à la liste !