Registriert seit: 10. Jun 2003
Ort: Berlin
9.648 Beiträge
Delphi 11 Alexandria
|
AW: ....Wo im Code befinde ich mich gerade?.....
7. Mai 2018, 10:55
Du kannst einen Stacktrace z.B. über die JEDI JCL erzeugen:
Delphi-Quellcode:
uses
JclDebug;
var
StackList: TJclStackInfoList;
CurrentStackList: TStringList;
begin
CurrentStackList := TStringList.Create;
try
StackList := JclCreateStackList(True, 0, ReturnAddress, False, nil, nil);
StackList.AddToStrings(CurrentStackList, True, True, True, True);
ShowMessage('Stacktrace:' + sLineBreak + CurrentStackList.Text);
finally
CurrentStackList.Free;
end;
end;
Geändert von jaenicke ( 7. Mai 2018 um 12:15 Uhr)
Grund: ExceptAddr durch ReturnAddress ersetzt
|
|
Zitat
|