[D7]Problème Try Finally End

Bonjour,
j'ai un petit soucis avec un bloc de code:

Code:

---

1 2 3 4 5 6 7 8 9

MaClasse := TMaClasse.Create; Try {...} if res = -1 then Exit; {...} Finally MaClasse.Free; End;

---

Si res = -1 le programme ne passe pas par le finally alors qu'en principe il devrait.
Merci de votre aide
a+

En Débogage, cela n'y passe pas toujours !

Ajoute un ShowMessage pour vérifier si ça passe ou pas ...

Citation:

---

Envoyé par ShaiLeTroll

En Débogage, cela n'y passe pas toujours !

---

Comment ça !?
Dans quels cas ??

8O :koi:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

type TMaClasse = class end;   procedure TForm1.btn1Click(Sender: TObject); var MaClasse: TMaClasse; res: integer;   begin res := -1; MaClasse := TMaClasse.Create; Try {...} if res = -1 then Exit; {...} Finally MaClasse.Free; End; end;

---

Sur mon poste, le finally s'exécute.

C'est vrai que je suis en mode débogagge.
Je vais mettre un showmessage.

merci ;)

je vous tiens o courant

Le showmessage me dit bien qu'il y passe.
Par contre le débug pas à pas non.

Merci!

Cela lui arrive ... fait F7 sur le Exit, il va ramer un peu, mais finira par passer par le finally ...

Salut

As-tu vérifié l'option Optimisation du code ?

cdlt

Dans option de projet/Compilateur
Génération de code j'ai optimisation coché.

Au lieu de compiler, fait Construire autant le code ne correspond plus à ce que compile delphi (Ca arrive parfois)

Merci à tous.

Tu as réglé le problème comment ? (c'est bien de donner la solution pour le cas où ca arrive à quelqu'un d'autre)

1. Dans le Try Finally j'ai placé un showmessage qui m'a bien été affiché à l'excution.
2. J'ai executé F7 en mode debug, et je suis bien passé dans le paragraphe Finally.

a+