如何写一个动态调用其他函数的函数(70)

如fuction CallX( 这里怎么写？ );begintest;end;fuction test;beginend;如果是静态调用，也就是直接调用一个特定的函数，直接写在代码里就ok了 要实现可以调用任意一个函数我想应该是什么指针类型吧我在写一个动态调用函数 过程 的一个单元callx 不仅可以调用任意一个函数、、、beginthread 第三个参数不就是调用一个函数吗，他是怎么做到的。。。。

http://www.sudu.cn/info/html/edu/code/20071227/53421.html给你参考

type TMYProc = Procedure;-------------------------procedure MYProc_1;begin ShowMessage('MYProc_1');end;procedure MYProc_2;begin ShowMessage('MYProc_2');end;procedure CallX(Pro:TMYProc);begin Pro;end;procedure TForm1.Button2Click(Sender: TObject);begin CallX(MYProc_2);end;假如对你有用，麻烦给分。

虽然问题已经被我解决虽然你的回复虽然不正确但是还是多给了我一个思路分给你了