delphi - Delphi 7中如何获取当前方法的名称？

Question

有什么方法可以知道我当前所在的方法的名称吗？

这样:

procedure TMyObject.SomeMethod();
begin
  Writeln('my name is: ' + <hocus pocus>); 
end;

将产生以下输出:

我的名字是:SomeMethod

Answer 1

JCL是免费的并且具有相关功能。它确实取决于堆栈跟踪的完成程度以及存在多少调试信息。

JclDebug.pas

function FileByLevel(const Level: Integer = 0): string;
function ModuleByLevel(const Level: Integer = 0): string;
function ProcByLevel(const Level: Integer = 0): string;
function LineByLevel(const Level: Integer = 0): Integer;