Zitat von
messie:
Wenn ich nach except auf die
Exception-Klasse Zugriff haben will, bekomme ich den nur mit
Delphi-Quellcode:
try
//..
except
on e:meineException do
begin
//..
end;
end;
Ergänzung: nicht nur! Innerhalb des Except / End Blockes ist die globale Variable ExceptObject gültig und diese enthält die aktuelle
Exception.
Delphi-Quellcode:
try
// ...
except
if ExceptObject
is meinException
then
ShowMessage(meinException(ExceptObject).DeineMessage)
else if ExceptObject
is andereException
then
ShowMessage(andereException(ExceptObject).AndereMessage)
else
ShowMessage(
Exception(ExceptObject).ClassName + '
' +
Exception(ExceptObject).
Message);
end;