Question

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

想通过 一个变量来获取 这个函数的或者过程的地址.要如何赋值

Answer 1

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的方式取得该过程函数变量的地址，而不是它指向的函数过程的地址。

Answer 2

你干什么用？
如果想将一个函数赋值给一个变量

比如说有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;

追答

已经在你另外一个帖子里回答了