Delphi-Quellcode:
TmpPointer := ExceptAddr;
Move (TmpPointer, TmpLongWord, SizeOf(TmpLongWord));
TmpStr := TmpStr + ' -ExceptADDR: ' + IntToStr(TmpLongWord);
TmpStr := TmpStr + ' -ExceptADDR: ' + IntToStr(NativeUInt(ExceptAddr)); // Oder Cardinal (bei 32 Bit) oder sonstein passender Cast
Aber Adressen machen sich Hexadezimal irgendwie besser.
Und
'OnException: ' +
ist irgendwie etwas doppelt.