//把一个方法当作另一个方法的参数, 就是回调方法, 大家习惯称作回调函数
type
TFunType = function(i: Integer): Integer; {声明一个方法类型}
function MyFun(i: Integer): Integer; {建立类型兼容的函数}
begin
Result := i*2;
end;
{把函数当作参数, 再定义一个函数}
function MyTest(x: Integer; F: TFunType): Integer;
begin
Result := F(x);
end;
{测试}
procedure TForm1.Button1Click(Sender: TObject);
var
Fun: TFunType; {声明一个 TFunType 的变量}
i: Integer;
begin
Fun := MyFun; {让方法变量 Fun 指向和它类型兼容的一个方法}
{测试 Fun; Fun 是一个方法变量, 现在去执行那个方法, 它就可以当作那个方法来使用了}
i := Fun(4);
ShowMessage(IntToStr(i)); //8
{把 Fun 当作参数使用; 把函数当作参数使用, 这就是回调函数}
i := MyTest(4,Fun);
ShowMessage(IntToStr(i)); //8
end;