var
CallStack: TEurekaBaseStackList;
begin
CallStack := GetTracer(TracerRawEurekaLogV6); // preferable
// Or:
// CallStack := TEurekaStackListV6.Create; // not recommended
try
// Build current call stack including current execution point
CallStack.Build(CallStack.GetCurrentInstruction);
// ... use CallStack somehow
finally
FreeAndNil(CallStack);
end;
end;
|