Zitat von
Muetze1:
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
also ich habs getestet, klappt super
Danke
Wieder was gelernt ^^
Ich hätte gedacht, dass die anderen Eigenschaften nicht mit übergeben werden...
Mit Klassen hatte ich mich vorher nie tiefer beschäftigt und die wörter Cast-bar, TypeCast und ExceptObject sagen mir gar nix ^^
Noch nicht, werde mir das mal tiefer anschaun glaub ich..
MFG Keda