delphi和c在函数指针上的比较

在C语言中，指针变量除能够指向数据对象外，也可以指向函数。
一个函数在编译时，分配了一个入口地址，这个入口地址就成为函数的指针。函数的指针能够赋给一个指向函数的指针变量，并能够通过指向函数的指针变过量调用它所指向的函数。
定义一个指向函数的指针变量的一般形式是：
类型标识符 （*指针变量名）（）；
例如：用指向函数的指针调用函数
main()
{
int min(int a, int b);  /* 声明min函数 */
int (*P)();             /* 定义指向函数的指针 */
int x,y,z;
P=min;  /* 指针P指向函数min的入口地址，不必写函数形参 */
scanf("%d,%d",x,y);

z=(*P)(x,y);

printf("x=%d y=%d  min=%d",x,y,z);
}
int min(int a,int b);
{
int c;
c=a<b?a:b;
return(c);
}
//////////////////////////////////////////////////
看到c语言中有指向函数的指针，我就在想是不是再pasacal当中也有这样的指针存在哪？答案是肯定的，但是在delphi中定义指向函数的指针仿佛更麻烦一点，灵活性上不如C。定义格式和应用如下
type

  TMyTest = procedure(aaa:integer) of object;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var Ptest:TMyTest;
begin
    Ptest:=test;
    Ptest(65);
end;

procedure TForm1.test(aaa: integer);
begin
    showmessage(Char(aaa));
end;

end.