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

[eaglet]

比如
要让 tempstr 得到当前的函数名 'a' .应调用什么函数或
采用什么方法?
procedure a ;
var
tempstr : string ;
begin
tempstr := ?
end ;

[nononono]

不能吧？

[nononono]

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

[王集鹄]

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 ;

[Kingron]

提问者：如要继续讨论请定期提前贴子，如不想讨论请结束贴子。否则视情况将被强制结束或者删除。

[skt985]

44907关注！