Moin!
Delphi-Quellcode:
If ( E Is EOLEException ) Then
EOLEException(E).Eigenschaft // bzw. ( E As EOLEException ).Eigenchaft
Die Exceptions sind nix anderes als Klasseninstanzen abgeleitet von
Exception (welche von TObject abgeleitet wurde). Diese sind ohne Probleme Cast-bar. Auch ist
ExceptObject innerhalb eines Try/Finally und Try/Except Blockes gültig und gefüllt mit der
Exception Instanz. Das On E:
Exception Do macht nix anderes als eine Klassenabfrage und einen TypeCast mit ExceptObject zu machen.
MfG
Muetze1