type TFuncB = function (c: Integer; var d: Integer): Integer;function FuncA(funcB: TFuncB; e: Integer): Integer; 可以码
xzgyb的方法就可以啊。Delphi里提供了过程类型啊
xzgyb: 请问如何编写funcB函数? 能举个例子吗?
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;
TFuncB = function (c: Integer; var d: Integer): Integer;function FuncA(funcB: TFuncB; e: Integer): Integer;
可以码
请问如何编写funcB函数? 能举个例子吗?
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;
呵呵