GetStackTrace在Delphi 7中？

使用Delphi 7,如何从一个异常中获得一个表示堆栈跟踪的字符串？

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

我听说在最新的delphi中有一个GetStackTrace函数,但是我找不到任何Delphi 7.不,升级不是一个选择:)

解决方法

您可以尝试使用 madExcept,一个奇妙的异常处理框架.

那里的madshi有一堆样例代码;我相信我以前使用过堆栈跟踪的东西.

正如德米特里指出的那样,JCL也有堆栈跟踪代码;一个旧样本是here.