Discussion :

[jlf]

bonjour

j'ai une Form que je crée dynamiquement dans une fonction :

Code :

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

1
2
3
4
5
6
7
8
 
function Ouvre : boolean;
var MaForm : TMaform;
begin
 MaForm := TMaForm.Create(nil);
 Result := MaForm.ShowModal = mrOK;
 MaForm.Free;
end;

le free provoque un plantage à l'exécution que je ne parviens pas à cerner
le plus bizarre est que si dans le OnDestroy de la form je mets un truc du genre :

procedure TMaForm.FormDestroy(Sender: TObject);
begin
VariableGlobale := 1;
end;

et que je mets un point d'arrêt du debogueur dessus, le free ne plante plus à condition que je fasse un "pas à pas" (F8 dans l'EDI) dessus
si je fais F9 directement ça plante

je comprends vraiment pas, qu'est que ça peut être ?!

[souch]

Salut,
Ta rien dans le onclose ou le ondestroy qui pourrait liberer quelqu chose dans le mauvais ordre ?
Le TCloseAction de ton onclose est peut etre a caFree ?
@+

[jlf]

Salut,
Ta rien dans le onclose ou le ondestroy qui pourrait liberer quelqu chose dans le mauvais ordre ?
Le TCloseAction de ton onclose est peut etre a caFree ?
@+

dans le OncloseQuery j'ai un truc conditionnel :
if IBQuery1.UpdatePending then ...

dans le OnClose je ferme simplement mes tables :
IBQueryX.Close ...

dans le OnDestroy j'ai rien

je viens d'assigner explicitement le TCloseAction à caHide dans le OnClose, ça change rien
je comprends vraiment rien

[jlf]

je viens de trouver le truc qui devait clocher

sur ma fiche j'ai pas mal de compos IBQuery associés à des TIBUpdateSql

j'ai essayé au hasard de supprimer des compos (pénible car il faut chaque fois raser le code associé) et au bout de quleques suppressions, miracle, le free a cessé de planter

le dernier supprimé était un TIBUpdateSQL

je l'ai rétablit sur la fiche exactement à l'identique (couper/colle), puis réassocié à son IBSQL d'origine, maintenant ça à l'air de marcher
pourtant ça plantait même si le UPD n'était pas sollicité dans le OnCloseQuery

quelqu'un aurait une idée d'explication ?

[Dry]

Il ne faut pas utiliser MyForm.free, qui ne se préoccupe pas de sovoir s'il reste des messages à destination de cette form, qui détruit donc cette form et ses composants un peu trop "violemment".

Pour les form il faut ulitiser MyForm.Release.

Citation issue de [F1] sur free :

Pour libérer une fiche, appelez sa méthode Release, qui détruit la fiche et libère la mémoire allouée pour celle-ci après que tous ses gestionnaires d'événements et les composants qu'elle contient ont fini de s'exécuter.

Citation issue de [F1] sur Release :

Release ne détruit pas la fiche avant que tous les gestionnaires d'événements de la fiche et des composants de la fiche n'aient eu le temps de terminer leur exécution. Cette procédure garantit aussi que tous les messages de la file d'attente des événements de la fiche sont traités avant la libération de la fiche. Tous les gestionnaires d'événements de la fiche ou ses enfants doivent utiliser Release à la place de Free (Delphi) ou delete (C++). Sinon, des erreurs d'accès à la mémoire se produiront.

Bon Dev

[jlf]

j'avais aussi essayé avec Release, mais ça n'avait pas levé les plantages
c'était vraiment mon IBUpdate qui avait un pbm, pbm qui restera je le crains non identifié

cela dit tu as raison, release semble plus prudent avec les forms et cette histoire m'a traumatisé, je vais remplacer mes Free

bien amicalement