delphi - Delphi 7 中的 GetStackTrace？

Question

使用 Delphi 7，如何从 Exception 中获取表示堆栈跟踪的字符串？

try
  SomethingDodgy();
except
  on E:Exception do begin
    // print stack trace
    Log.Write(/* ??? */);
  end;
end;

我听说最新的delphi中有一个GetStackTrace函数，但我找不到delphi 7的任何东西。不，升级不是一个选项:)

Answer 1

您可以尝试使用 madExcept ，一个很棒的异常处理框架。

madshi 中有大量示例代码；我确信我以前使用过其中的堆栈跟踪内容。

正如 Dmitriy 指出的那样，JCL还有堆栈跟踪代码；旧样本是 here .