delphi中如何在程序中得到当前所在的函数名?

Question

如果是DLL中的函数，也许可以。但一个编入EXE程序中的函数的名字是否还存在就难说了。
你可以试试：做一个EXE，用UltraEdit在这个EXE中找一下，看看函数名串是否存在。

Answer 1

procedure a ;
var
  tempstr : string ;
  P, R: PChar;
begin
  P := PChar(#199#235#206#202#206#210#202#199#203#173#63);
  {$IFDEF WIN32}
  asm
    mov eax, P
    mov R, eax
  end;
  {$ELSE}
  asm
    mov ecx, P
    mov R, eax
  end;
  {$ENDIF}
  tempstr := string(R);
end ;