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

eaglet 2000-11-28 10:08:00
比如
要让 tempstr 得到当前的函数名 'a' .应调用什么函数或
采用什么方法?
procedure a ;
var
tempstr : string ;
begin
tempstr := ?
end ;
...全文
294 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
skt985 2001-06-01
  • 打赏
  • 举报
回复
44907关注!
Kingron 2001-05-16
  • 打赏
  • 举报
回复
提问者:如要继续讨论请定期提前贴子,如不想讨论请结束贴子。否则视情况将被强制结束或者删除。
王集鹄 2000-11-29
  • 打赏
  • 举报
回复
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 ;
nononono 2000-11-28
  • 打赏
  • 举报
回复
如果是DLL中的函数,也许可以。但一个编入EXE程序中的函数的名字是否还存在就难说了。
你可以试试:做一个EXE,用UltraEdit在这个EXE中找一下,看看函数名串是否存在。
nononono 2000-11-28
  • 打赏
  • 举报
回复
不能吧?

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧