[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.