Exceptions: Le "except" est exécuté après que Delphi ait géré l'erreur
Salutation!
J'utilise Delphi 7 et je semble avoir un problème avec ma gestion d'exceptions.
J'ai lu un tutoriel à ce sujet (http://flash-koti.developpez.com/art...tionexception/) et mon logiciel ne réagit pas de la même façon.
Par exemple, si j'exécute le code suivant:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| procedure TForm1.Button1Click(Sender: TObject);
var
param1 : Double;
begin
try
param1 := StrToFloat(Edit1.Text);
{suite des instructions}
except
on EconvertError do
MessageDlg('Erreur : Vous devez entrer un réel'
+#10#13+'Le séparateur décimal est : '+DecimalSeparator, mtError, [mbOk], 0);
end;
{Autre instruction non sensible}
end; |
Je reçois ce message:
http://img.photobucket.com/albums/v5...xception01.jpg
Puis ce message:
http://img.photobucket.com/albums/v5...xception02.jpg
En théorie, vu que je fais de la gestion d'erreurs, seulement le premier message devrait s'afficher, non?
Voici ma configuration (Tools / Debugger Options):
http://img.photobucket.com/albums/v5...xception03.jpg
Si je décoche "Stop on Delphi Exception", le premier message n'est plus affiché. Cependant, si j'enlève la gestion d'erreur (try...except), c'est aussi seulement le 2e message qui apparaît.
Quelqu'un peut m'aider avec ceci?
Merci beaucoup!
