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

Delphi-Quellcode:

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 :shock:

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 :?