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よりもはるかに小さくなります（例：900 KB .map - > 70 KB .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; 

このメソッドは、呼び出し元のアドレスを取得し、そのユニット名、メソッド名、および行番号を記録できます。