search

maxkleiner / maXbox4

code compiler script studio
GNU General Public License v3.0
23 stars 10 forks source link

JclStackInfoList: TJclStackInfoList; #15

Closed maxkleiner closed 6 months ago

maxkleiner commented 4 years ago

add JclStackInfoList: TJclStackInfoList; to baselib: function GetCallStack: String; var JclStackInfoList: TJclStackInfoList; StringList: TStringList; begin JclStackInfoList := JclCreateStackList(True, 3, Caller(0, False)); try StringList := TStringList.Create; try JclStackInfoList.AddToStrings(StringList, True, False, True, True); Result := StringList.Text; finally StringList.Free; end; finally JclStackInfoList.Free; end; end;

maxkleiner commented 6 months ago

https://stackoverflow.com/questions/43774927/delphi-trying-to-get-stacktrace-for-an-exception