困惑的问题：如何把函数（Procedure,Function）作为参数传递？

[adailee]

出于一些特殊情况的考虑，我需要把procedure、function在过程之中传递。
类似于传递指向函数的指针，可是我不知道如何实现。
请大虾帮忙解决。

[adailee]

UP一次。

[jarjarbink]

这个很简单，pascal支持特殊的函数“类型”，而且其间的匹配并非严格的按名匹配，比如：
你可以声明
type TMyFunction = function(i: integer): boolean;

function MyI(j: integer): boolean;
begin
...
end;

procedure OtherFunction(func: TMyfunction);
begin
...
end;

begin
...
OtherFunc(MyI);
...
end.

就可以啦。

[adailee]

先谢谢jarjarbink()，我去调试一下。

[szchengyu]

type TMyProc = procedure (v: integer);

...

var mp: TMyProc
...
mp(v);
....

[szchengyu]

呵呵，这样也能得分，
要是赚钱可以这样就好了！！！！！！！！

[hssfox]

学习