Discussion :

[Kcintim]

Slt a ts,
Voici mon code :

procedure TForm1.Button32Click(Sender: TObject);
var
a,b,result : integer;
begin
a:=10; b:=0;
try
result := a div b;
except On EZeroDivide DO
ShowMessage('bad');
end;
end;

Résultat, il ne passe jamais dans mon bloc Except ????
Quelqu'un pourrais t'il m'indiquer pourquoi ?
Merci d'avance
Kcintim

[Graffito]

Bonjour,

2 raisons :
1) L'exception sur des entiers est On EDivByZero
2) en raison de l'optimisation, le code n'est pas forcement exécuté

Pour être sur de l'éxec, faire par exemple :

Code :

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

Button32.caption:=inttostr(result) ;