Discussion :

[Invité]

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 :

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;

Je reçois ce message:


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!

[TicTacToe]

Ceci est normal car tu es en mode conception.
Le 1er message ne sera plus là lors tu seras en execution autonome.

Si tu ne veux pas avoir le 1er message, il faut ajouter à la fenetre que tu as capturé, l'execpetion EConverteError, et la décocher.

C'est déconseillé en fait, car en conception, mieux vaut être au courant de chaque execpetion levée...

bon code !

[Invité]

Merci beaucoup TicTacToe pour ta réponse.
Je comprends mieux maintenant ce qui m'arrive