Delphi 中 如何将函数的地址赋值给指针变量?

想通过一个变量来获取这个函数的或者过程的地址.要如何赋值... 想通过 一个变量来获取 这个函数的或者过程的地址.要如何赋值 展开
 我来答
就烦条0o
2016-01-26 · 知道合伙人软件行家
就烦条0o
知道合伙人软件行家
采纳数:33315 获赞数:46490
从事多年系统运维,喜欢编写各种小程序和脚本。

向TA提问 私信TA
展开全部
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的方式取得该过程函数变量的地址,而不是它指向的函数过程的地址。
sirouszlh
2014-03-07 · TA获得超过1651个赞
知道小有建树答主
回答量:1038
采纳率:100%
帮助的人:638万
展开全部
你干什么用?
如果想将一个函数赋值给一个变量

比如说有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;
追答
已经在你另外一个帖子里回答了
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式