Try-Except: .Message auslesen?

[himitsu]

Es ist ja möglich per On-Do an die Message der Exception zu kommen,

Delphi-Quellcode:

Try 
  Raise Exception.Create('...'); 
Except 
  On E: Exception do S := E.Message;
End;

aber wie ist das möglich, wenn man alle Exceptions behandeln will, also ohne einen On-Do-Block?

Hab da ja keinen Objektnamen (xxx), über den ich darauf zugreifen könnte?

Delphi-Quellcode:

Try 
  Raise Exception.Create('...'); 
Except 
  S := xxx.Message;
End;

[mkinzler]

Da alle Exceptions von Exception abgeleitet werden, müsste mit deinem on .. do alle eceptions abgefangen werden.

[Muetze1]

Delphi-Quellcode:

On
  Raise Exception.Create('immer 2x mehr wie du...');
Except
  s := Exception(ExceptObject).Message;
End;

[himitsu]

@mkinzler: hast Recht, eigentlich dachte ich die Typen werden genau verglichen und nicht auch deren abgeleitete Typen mit genommen

Aber die Funktion ExceptObject von Muetze1 gefällt mir da besser

Ist schon nett, daß meine D4-Hilfe diese kennt, aber mir hätte eine dahin Verknüfung in Except gefallen, wie soll man denn sonst auf sowas kommen