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

最新推荐文章于 2024-10-18 10:24:50 发布

原创最新推荐文章于 2024-10-18 10:24:50 发布 · 1.3k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #c #integer #语言 #object

点滴积累专栏收录该内容

0 篇文章

订阅专栏

博客介绍了C语言中指针变量可指向函数，给出指向函数的指针变量定义形式及调用示例。还探讨了Pascal中类似指针，以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.