★★★★★超级难题：如何返回函数名称？例如function A: string;
begin
怎么能让 Result := 'A';
因为类似的函数很多希望有个解决方案，不能每个函数都手工输入。
end;200分，不够再加！
begin
怎么能让 Result := 'A';
因为类似的函数很多希望有个解决方案，不能每个函数都手工输入。
end;200分，不够再加！
解决方案 »
- delphi储存数据的小问题
- 关于客户端访问服务器数据库时出现的问题
- 关于F1BOOK控件的几个问题？
- 请教Spcomm打开Usb->Rs232的虚拟串口
- 程序运行着SQLSERVER自动关闭，然后程序就提示连接失败，怎么回事？
- 招聘Delphi程序员，广州上班，月薪2500元左右
- 请问类似这样的字符串Sep 18 2002 10:00AM怎么样转换成日期性的类型？
- 怎样取系统支持的颜色数
- 多层应用程序在别的机子上为何不能正常运行！
- 我在一个按钮上按右键，让popupmenu弹出，请问怎么设置它弹出的位置？
- 本人求购delphi5开发人员指南,新旧都行
- 我用SysTime取得当前时间,为什么总是1899年的,为什么!
Result:=MethodName(@tclass.A);
//不过不用手工输入有点不太可能
的delphi里函数不是对象,编译后不会保留自身名称
不过
type
Tfunction =function a:string of object;
这样不知道是不可以取得函数名称
建议做个宏替换器,对源代码作处理
delphi宏我没这样用过,应该不行吧至于自定函数对象就免了吧,要是能编出函数对象那你就可以自己语言了