procedure TForm1.Button1Click(Sender: TObject);
type
Taaa = procedure (i:integer) of object ;
var
ap: Taaa;
begin
ap := BBB; //这里把BBB这个方法赋给ap这个变量,注意BBB与ap的声明原型要一样,不然会有错的。。。
ap(1); //这里实际调用的就是BBB了。。。
end;
procedure TForm1.BBB(I: Integer);
begin
showmessage('BBB:' + IntToStr(I));
end;
procedure TForm1.CCC(I: Integer);
begin
showmessage('CCC:' + IntToStr(I));
end;
procedure TForm1.Button1Click(Sender: TObject);
type
Taaa = procedure (i:integer) of object ;
var
ap: Taaa;
begin
ap := BBB;
ap(1);
ap := CCC;
ap(2);
end;