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:
Je reçois ce message:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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;
Puis ce message:
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):
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!
Partager