Es geht übrigens auch sowas
Delphi-Quellcode:
// in System.ExceptObject steckt die letzte/aktuelle Exception (also zufällig die von dem aktuellen Except-Block)
// und SysUtils.ShowException zeigt den normalen Exception-Dialog an
try
...
except
ShowException(ExceptObject, ExceptAddr);
end;
Delphi-Quellcode:
// entspricht in etwa dem ShowMessage(E.Message);
try
...
except
on E:
Exception do
ShowException(E,
nil);
end;
Delphi-Quellcode:
// entspricht in etwa dem ShowMessage('Fehler: ' + E.Message);
try
...
except
on E:
Exception do begin
E.
Message := '
Fehler: ' + E.
Message;
ShowException(E,
nil);
end;
end;