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

Posted 2023-05-01

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

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的方式取得该过程函数变量的地址，而不是它指向的函数过程的地址。 参考技术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);追问

procedure hanshuA;
begin
end;

procedure TForm1.Button1Click(Sender: TObject);
var

p:^DWORD;
i:DWORD;
begin
p:=@hanshuA;
i:=p^;
ShowMessage(IntToHex(i,4)); //输出的函数地址不正确
end;

追答

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

本回答被提问者采纳

C语言中如何交换两个指针变量的的值

交换两个指针变量的值 而不是交换他们所指向的东西的值
比如说p1原指向结构体变量a，p2原指向结构体变量b，怎样让p1指向b,p2指向a?

1、首先，就是最基本的知识，写头文件、函数声明、定义变量。

2、下面还需要定义指针，需要定义两个指针p1和p2，然后把a的地址赋值给p1，把b的地址赋值给p2。

3、然后就是调用函数，该函数没有返回值，就直接调用，但是参数进入的是a和b的地址，而不是a和b。

4、函数点用完之后，就是输出a和b的值看一看是否互换了。

5、首先，a和b的地址传给x和y，通过指针直接对a和b的值进行操作。

6、最后，就是调换*x和*y的值，这样就是实现了a和b的值。

参考技术A

交换两个指针变量的的值有两种不同的形式：

在指针定义所在函数交换两个指针变量的值

这种交换，与交换两个整型变量的值方法相同，分三步：

先将pa存储到临时变量pt中，

再将pb存储到pa中，

最后将pt存储到pb中


通过自定义函数进行交换两个指针变量的值

这种交换，必须要传递两个指针变量的地址到自定义函数中（即函数的形参是二维指针），然后在函数中对收到的二维指针变量中的内容进行交换，即可实现实参的交换。

参考代码：

参考技术B #include<stdio.h>

struct student

long num;
float score;
;

void main()

struct student a,b,c,*p1,*p2,*p3;
a.num = 1;
b.num = 2;
c.num = 3;
// 交换内容
p1=&a;
p2=&b;
c = *p1;
*p1 = *p2;
*p2 = c;
// 交换地址
p3 = p1;
p1 = p2;
p2 = p3;
参考技术C int a, b;
int *p1=&a,*p2=&b,*temp;

temp=p1; p1=p2;p2=temp;

这样就完成交换 参考技术D 定义一个中间变量t（也是结构体类型的）：
t=p1;
p1=p2;
p2=t;
就行了追问

不行啊。。。调试的时候显示error C2106: '=' : left operand must be l-value。。
该怎么解决额。。谢啦

追答

代码发来看看，qq：561190217

追问

你QQ验证问题的答案是。。= =

追答

tzklcy

本回答被提问者采纳