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

Question

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

这样：

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

会产生这样的输出：

my name is: 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; 

Answer 2

也our TSynMapFile class见。

它能够加载.map文件，并将其压缩为优化的二进制格式。它将比.map本身小得多（例如900KB .map-> 70KB .mab）。这个.mab可以很容易地嵌入到exe文件中。因此它小于JCL或MadExcept使用的格式，也小于Delphi编译时嵌入的信息。

你会用它作为这样的：

Map := TSynMapFile.Create; // or specify an exe name 
try 
    i := Map.FindSymbol(SymbolAddr); 
    if i>=0 then 
    writeln(Map.Symbols[i].Name); 
    // or for your point: 
    writeln(Map.FindLocation(Addr)); // e.g. 'SynSelfTests.TestPeopleProc (784)' 
finally 
    Map.Free; 
end; 

举例来说，这里是它是如何从我们的日志类使用。

procedure TSynLog.Log(Level: TSynLogInfo); 
var aCaller: PtrUInt; 
begin 
    if (self<>nil) and (Level in fFamily.fLevel) then begin 
    LogHeaderLock(Level); 
    asm 
     mov eax,[ebp+4] // retrieve caller EIP from push ebp; mov ebp,esp 
     sub eax,5  // ignore call TSynLog.Enter op codes 
     mov aCaller,eax 
    end; 
    TSynMapFile.Log(fWriter,aCaller); // here it will call TSynMapFile for the current exe 
    LogTrailerUnLock(Level); 
    end; 
end; 

此方法能够检索调用者的地址，并记录其单元名称，方法名称和行号。