[D7]Problème Try Finally End

**delphi5user** · 17/04/2007, 15h33

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

Code :

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

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+

**ShaiLeTroll** · 17/04/2007, 15h36

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

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

**Lung** · 17/04/2007, 15h40

Envoyé par ShaiLeTroll

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

Comment ça !?
Dans quels cas ??

**slimjoe** · 17/04/2007, 15h53

Code :

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

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.

**delphi5user** · 17/04/2007, 16h03

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

merci

je vous tiens o courant

**delphi5user** · 17/04/2007, 16h09

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

Merci!

**ShaiLeTroll** · 17/04/2007, 16h11

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

**e-ric** · 17/04/2007, 16h12

Salut

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

cdlt

**delphi5user** · 17/04/2007, 16h17

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

**Rayek** · 17/04/2007, 16h19

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

**delphi5user** · 17/04/2007, 16h23

Merci à tous.

**Rayek** · 17/04/2007, 16h26

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)

**delphi5user** · 17/04/2007, 16h37

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+

[D7]Problème Try Finally End

Delphi

Discussions similaires

Partager

Partager