tokyo - delphi versiones

¿Cómo obtener el nombre del método actual en Delphi 7?

Question

¿Hay alguna manera de saber el nombre de un método en el que me encuentro actualmente?

Así que eso:

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

produciría esta salida:

my name is: SomeMethod

Answer 1

Vea también nuestra clase TSynMapFile .

Es capaz de cargar un archivo .map y comprimirlo en un formato binario optimizado. Será mucho más pequeño que el propio .map (por ejemplo, 900 KB .map -> 70 KB .mab ). Este .mab se puede incrustar fácilmente dentro del exe. Por lo tanto, es más pequeño que el formato utilizado por JCL o MadExcept, y también es más pequeño que la información incorporada en tiempo de compilación por Delphi.

Lo usarás como tal:

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;

Por ejemplo, así es como se usa en nuestras clases de registro.

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;

Este método puede recuperar la dirección de la persona que llama y registrar su nombre de unidad, nombre del método y número de línea.

Answer 2

JCL es gratis y tiene funciones para eso. Depende de qué tan bien se pueda hacer un seguimiento de pila y cuánta información de depuración esté presente.

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;