1,184
社区成员
发帖
与我相关
我的任务
分享在D6中有没有宏替换函数？
在D6中有没有宏替换函数？
我将程序中的所有自定义函数以字符串的方式声名，如何用宏替换函数将字符串命名的转换成相应的函数呢？
我将程序中的所有自定义函数以字符串的方式声名，如何用宏替换函数将字符串命名的转换成相应的函数呢？
...全文
请发表友善的回复…
发表回复
李_军 2003-07-07
- 打赏
- 举报
没有，只能用
const 来用但是不支持表达式
const 来用但是不支持表达式
cosda99 2003-07-07
- 打赏
- 举报
有人回答吗 ？
windindance 2003-07-07
- 打赏
- 举报
type
tform1 = class(tform)
..
published
procedure a;
procedure b;
//注意：函数或者方法的定义必须完全相同
end;
procedure tform1.deal(s:string);
var
Proc :procedure;
begin
Proc := MethodAddress(s);
if (@Proc<>NIL) then Proc;
end;
tform1 = class(tform)
..
published
procedure a;
procedure b;
//注意：函数或者方法的定义必须完全相同
end;
procedure tform1.deal(s:string);
var
Proc :procedure;
begin
Proc := MethodAddress(s);
if (@Proc<>NIL) then Proc;
end;
cosda99 2003-07-07
- 打赏
- 举报
怎么使用呢有例子吗？
windindance 2003-07-07
- 打赏
- 举报
试试MethodAddress可以部分达到你的要求。
