展开全部
1、 首先,申明函数指针类型TFunctionParameter。
type
TFunctionParameter = function(const value : integer) : string;
2、 定义准备被作为参数传递的函数
function One(const value : integer) : string;
begin
result := IntToStr(value) ;
end;
function Two(const value : integer) : string;
begin
result := IntToStr(2 * value) ;
end;
3、 定义将要使用动态函数指针参数的函数
function DynamicFunction(f : TFunctionParameter; const value : integer) : string;
begin
result := f(value) ;
end;
4、 上面这个动态函数的使用实例
var
s : string;
begin
s := DynamicFunction(One,2006) ;
ShowMessage(s) ; //will display "2006"
s := DynamicFunction(Two,2006) ;
ShowMessage(s) ; // will display "4012"
end;
5、其它说明
一个指向函数的指针在赋值指向函数时,不需要显示地取函数的地址。
例:
var F:function(X:Integer):Integer;
...
function aa(X:Integer):Integer;
不需要: F:=^aa;
只要:F:=aa;就可以了。
F:=aa可能是一个函数类型变量赋值,也可能是调用aa函数过程。
如果F不是一个函数过程类型,它就是一个函数调用。
但是只要是出现在表达式中,就一定是函数过程的调用。
例:if A:=fun then
A:=fun一定是一个函数过程的调用,将返回值赋予A
注意,如果fun是一个过程(它没有返回值)或它需要参数(需要写上参数),那就会产生语法错误。
如果要显示说明它是一个赋值语句而不是函数过程的调用,可以这样写
if @A :=@fun then
@A是将A转换成一个无类型指针(它本身就是以指针形式存在)
@fun是取得函数过程fun的地址
可以通过@@A的方式取得该过程函数变量的地址,而不是它指向的函数过程的地址。
type
TFunctionParameter = function(const value : integer) : string;
2、 定义准备被作为参数传递的函数
function One(const value : integer) : string;
begin
result := IntToStr(value) ;
end;
function Two(const value : integer) : string;
begin
result := IntToStr(2 * value) ;
end;
3、 定义将要使用动态函数指针参数的函数
function DynamicFunction(f : TFunctionParameter; const value : integer) : string;
begin
result := f(value) ;
end;
4、 上面这个动态函数的使用实例
var
s : string;
begin
s := DynamicFunction(One,2006) ;
ShowMessage(s) ; //will display "2006"
s := DynamicFunction(Two,2006) ;
ShowMessage(s) ; // will display "4012"
end;
5、其它说明
一个指向函数的指针在赋值指向函数时,不需要显示地取函数的地址。
例:
var F:function(X:Integer):Integer;
...
function aa(X:Integer):Integer;
不需要: F:=^aa;
只要:F:=aa;就可以了。
F:=aa可能是一个函数类型变量赋值,也可能是调用aa函数过程。
如果F不是一个函数过程类型,它就是一个函数调用。
但是只要是出现在表达式中,就一定是函数过程的调用。
例:if A:=fun then
A:=fun一定是一个函数过程的调用,将返回值赋予A
注意,如果fun是一个过程(它没有返回值)或它需要参数(需要写上参数),那就会产生语法错误。
如果要显示说明它是一个赋值语句而不是函数过程的调用,可以这样写
if @A :=@fun then
@A是将A转换成一个无类型指针(它本身就是以指针形式存在)
@fun是取得函数过程fun的地址
可以通过@@A的方式取得该过程函数变量的地址,而不是它指向的函数过程的地址。
展开全部
你干什么用?
如果想将一个函数赋值给一个变量
比如说有2个函数
是 procedure xxx(iType: integer);
procedure yyy(iType: integer);
那你可以定义一个函数指针
TProc = Procedure(iType: integer)of object;
TProc 的结构和上面的函数结构一样
那样的话
var
T1:TProc;
T1:= xxx;
那执行 T1(3); 就相当于执行了 xxx(3);
如果想将一个函数赋值给一个变量
比如说有2个函数
是 procedure xxx(iType: integer);
procedure yyy(iType: integer);
那你可以定义一个函数指针
TProc = Procedure(iType: integer)of object;
TProc 的结构和上面的函数结构一样
那样的话
var
T1:TProc;
T1:= xxx;
那执行 T1(3); 就相当于执行了 xxx(3);
追问
procedure hanshuA;
begin
end;
procedure TForm1.Button1Click(Sender: TObject);
var
p:^DWORD;
i:DWORD;
begin
p:=@hanshuA;
i:=p^;
ShowMessage(IntToHex(i,4)); //输出的函数地址不正确
end;
追答
已经在你另外一个帖子里回答了
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询