精通C和DELPHI的高手请进!!!

Question

似乎pascal不支持函数作为参数传递给另一个函数。

Answer 1

type
  TFuncB = function (c: Integer; var d: Integer): Integer;function  FuncA(funcB: TFuncB; e: Integer): Integer;
可以码

Answer 2

xzgyb的方法就可以啊。Delphi里提供了过程类型啊

Answer 3

xzgyb:
  请问如何编写funcB函数? 能举个例子吗?

Answer 4

type
  TFuncB = function (c: Integer; var d: Integer): Integer;function FuncB(c: Integer; var d: Integer): Integer;
begin
  {}
end;function FuncA(funcB: TFuncB; e: Integer): Integer;
begin
  if Assigned(funcB) then {funcB()};
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  FuncA(FuncB, 1);
end;

Answer 5

不好意思刚上来,我要说的zswang已经说了
呵呵