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

发布时间：2020-12-15 10:18:48 所属栏目：大数据来源：网络整理

导读：有什么办法知道我目前在使用的方法的名称吗？以便： procedure TMyObject.SomeMethod();begin Writeln('my name is: ' + hocus pocus); end; 将产生此输出：我的名字是：SomeMethod 解决方法 JCL是免费的，具有这一功能。这取决于堆栈跟踪可以做多么好，调

有什么办法知道我目前在使用的方法的名称吗？

以便：

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

将产生此输出：

我的名字是：SomeMethod

解决方法

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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!