Discussion :

[eponette]

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 :

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

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)

[sjrd]

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.

[eponette]

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

[tourlourou]

Code :

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

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

[eponette]

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 :

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

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

[JLOUIS]

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 :

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

1
2
3
4
5
6
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   action := caFree;
   Liste.Delete(Liste.IndexOf(self));
end;