Discussion :

[Genestoux]

Bonjour,

le titre n'est pas très explicite désolé.

Bon j'ai dans mon appli une form child Flisting que j'appele à partir d'une autre child. Jusque là c'est bon. Le problème que je rencontre c'est que je veux tester si FListing existe alors je la fermer.

Code :

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

if FListing <> nil then FListing.close

Code :

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

1
2
3
4
procedure TFListing.close(sender : TObject);
begin
action := caFree;
end;

quand je l'ouvre une première fois ca marche FListing = nil, par contre si je l'ouvre une deuxième fois, alors que j'ai fermer FLisiting :

Code :

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

Violation d'accès à l'adresse 000000 ....

Du coup, j'ai essayer avec Free, FreeInstance ....

en exécutant de pas à pas lors de la deuxième ouverture je mets le curseur sur FListing lors du if et il me marque toutes les options notament ActionList = nil mais pas simplement FListing = nil comme lors de la première ouverture. Donc je ne comprends pas, pour lui FListing existe sans exister ... Ca voudrais dire que ca mémoire est toujours allouée ???

merci.

[Pergos]

Bonjour,

Pour avoir rencontré le problème avec de nombreux objets autres que des forms, j'aurai tendance à conseiller la fonction "FreeAndNil(MonObjet)". Ca effectue un free, et à la fin, il fait un "MonObjet := nil" .

Je n'ai jamais essayé avec les Forms, donc, à voir si ça fonctionne...

Pergos.

[Cl@udius]

@Pergos, si si ça marche ! C'est la méthode que j'emploie.

[Genestoux]

merci de vos réponses.

J'ai donc remplacé dans TFListing.FomClose

Code :

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

action := caFree

par

Code :

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

FreeAndNil(FListing)

résultat quand je ferme FListing :

Code :

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

1
2
3
Le projet a provoqué une classe d'exception EAccessViolation avec le message
'Violation d'accès à l'adresse 40005989 dans le module rtl70.bpl.
Lecture de l'adresse FFFFFFFF.

[Cl@udius]

Salut,

Si je comprends bien, tu effectues le FreeAndNil(FListing) à l'intérieur même de la form.

C'est de là que provient la violation. Le FreeAndNil de la form ne doit pas être exécuté depuis la form elle-même, mais depuis 'l'extérieur': la form appelante par exemple ou la MDIForm.

@+ Claudius

[Genestoux]

ok c'était bien ça.

Donc si je comprends bien le caFree attend la fin de l'unité pour désallouer alors que FreeAndNil le fait immédiatement ... gr#/mblpkh$$### de cerveau ramoli !

merci.