ersetzt try..except begin..end?

[Muetze1]

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;