Wichtig scheint mir das nur wenn Du auf verschiedene Exceptions unterschiedlich reagieren willst, was dann ja voraussetzt dass Du weist was Du wie behandeln will. Den Rest kannst Du ja über den else Zweig abfackeln.
Delphi-Quellcode:
procedure Tuwas(
const s:
String);
var
i:Integer;
begin
try
i := StrToInt(s);
Showmessage(FloatToStr(1/i));
except
ON E:
Exception do
begin
if E
is EZeroDivide
then Showmessage('
Divison durch 0')
else Raise;
// oder was auch sonst hier vorzusehen wäre
end;
end;
end;
procedure TForm3.Button1Click(Sender: TObject);
begin
TuWas('
0');
TuWas('
Nase');
end;