try SomethingDodgy(); except on E:Exception do begin // print stack trace Log.Write(/* ??? */); end; end;
我听说在最新的delphi中有一个GetStackTrace函数,但是我找不到任何Delphi 7.不,升级不是一个选择:)
那里的madshi有一堆样例代码;我相信我以前使用过堆栈跟踪的东西.
正如德米特里指出的那样,JCL也有堆栈跟踪代码;一个旧样本是here.
