|
|
@@ -151,6 +151,7 @@ begin |
|
|
|
result := result + sLineBreak + |
|
|
|
' Exception: ' + aException.ClassName + sLineBreak + |
|
|
|
' Message: ' + aException.Message + sLineBreak + |
|
|
|
' Thread: ' + IntToStr(GetCurrentThreadId) + sLineBreak + |
|
|
|
' StackTrace:' + sLineBreak + |
|
|
|
' ' + BackTraceStrFunc(ExceptAddr) |
|
|
|
else |
|
|
|