Code: Alles auswählen
DebugLn(
'Unit: ' + UnitName + LineEnding +
'File: ' + {$I %FILE%} + LineEnding +
'Methodname: ' + {$I %CURRENTROUTINE%} + LineEnding +
'Linenumber: ' + {$I %LINE%} + LineEnding +
'Exception: ' + E.Message + LineEnding +
'Message: ' + 'my Individual Message'
);