回调函数

unit Unit1;
{By 月夜风筝，icc}

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  //关于两数A，B的二元运算，返回同类型
  TCallBackFunc = function (const A, B: Integer): Integer;


var
  Form1: TForm1;

implementation

{$R *.dfm}

{下面的四个函数给出了支持回调接口的四种运算，即：加、减、除、平方和
 注：从回接口 “TCallBackFunc” 可以看出，它是关于二元整型的运算符，返回整型
 这几个函数都符合接口规范，因此可被随意回调
 这几个函数可以看作是“数据运算插件”，它们的开发可由多人共同进行
 这几个函数充当了具体的回调执行代码
}

function Add(const A, B: Integer): Integer;
begin
  Result := A + B;
end;

function Minus(const A, B: Integer): Integer;
begin
  Result := A - B;
end;

function Multi(const A, B: Integer): Integer;
begin
  Result := A * B;
end;

function Square(const A, B: Integer): Integer;
begin
  Result := A * A + B * B;
end;

{这里定义了回调，比较重要的接口}
function Calc(const OP: TCallBackFunc; const X, Y: Integer): string;
begin
  Result := IntToStr(OP(X, Y));{这里的“OP”就是回调的定义之地}
{ 更典型的写法可能是如下形式，VCL中有大量类似代码
  Result := -1;
  if Assigned(OP) then
     Result := IntToStr(OP(X, Y));
  }
end;


procedure TForm1.btn1Click(Sender: TObject);
const
  A = 2;
  B = 3;
var
  s : string;
begin
  s := Calc(Add, A, B); {这里激活了回调，以下同}
  s := Format('"Add" of %0:d and %1:d is : %2:s', [A, B, S]);
  ShowMessage(s);

  s := Calc(Minus, A, B);
  s := Format('"Minus" of %0:d and %1:d is : %2:s', [A, B, S]);
  ShowMessage(s);

  s := Calc(Square, A, B);
  s := Format('"Square Plus" of %0:d and %1:d is : %2:s', [A, B, S]);
  ShowMessage(s);
end;

end.
 


来自：icc, 时间：2006-10-28 14:49:27, ID：3608640
小结：
1、定义回调接口
2、定义回调代码
3、绑定并激活回调事件