On Tue, 16 Oct 2007 21:20:02 +0200, "BigGrizzly"
<biggrizzlyENLEVERCA@zoo-logiqueETCAAUSSI.org> wrote:

>CaAMerde := False;
>try
> try
> raise Exception.Create('Coucou');
> except
> CaAMerde := True;
> end;
>finally
> if CaAMerde then
> Application.Terminate;
>end;

Je viens d'essayer mais je n'arrive pas a remplacer
raise Exception.Create('Coucou');
par
raise rewrite(monfichier);

Apparement c'est pas une class et moi j'ai toujours été nul en classe.


--
La vie, c'est comme une boite de chocolat, on sait jamais sur quoi on va tomber...
C'est de la connerie, il suffit de retourner la boite pour voir les differente sorte sur la photo.
Seulement maintenant t'es dans la merde parce que les chocolats sont par terre....