获取函数的地址(三种方法,分别是@,Addr,MethodAddress)
2016-11-03 22:09
501 查看
问题来源: http://www.cnblogs.com/del/archive/2008/07/30/1039045.html#1272783
在编译器看来, 重载函数根本就是完全不同的几个函数, 当然就会有不同的函数地址; 我们用常规方法获取的地址只是第一种重载的地址.
代码文件:
http://www.cnblogs.com/del/archive/2008/07/30/1256889.html
在编译器看来, 重载函数根本就是完全不同的几个函数, 当然就会有不同的函数地址; 我们用常规方法获取的地址只是第一种重载的地址.
代码文件:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} {先举例两个重载函数} function MyFun(s: string): string; overload; begin Result := s; end; function MyFun(i: Integer): string; overload; begin Result := IntToStr(i); end; {分别获取重载函数的地址} procedure TForm1.FormCreate(Sender: TObject); type {需要先定义两个方法类型, 参数分别对应上面的重载函数} TF1 = function(s: string): string; TF2 = function(i: Integer): string; var f1: TF1; {对应重载一} f2: TF2; {对应重载二} s1,s2: string; begin f1 := MyFun; {让 f1 指向重载一} f2 := MyFun; {让 f2 指向重载二} {测试函数} s1 := f1('abc'); s2 := f2(123); ShowMessageFmt('%s, %s', [s1,s2]); {abc, 123} {前两个值分别是两个重载函数的地址; 第三个值是根据函数名获取的, 它和第一种重载的地址相同} ShowMessageFmt('%p, %p, %p', [@f1, @f2, @MyFun]); {另一种方法} ShowMessageFmt('%p, %p, %p', [Addr(f1), Addr(f2), Addr(MyFun)]); {如果是类 published 区中的方法, 也可以用 MethodAddress 获取地址} end; end.
http://www.cnblogs.com/del/archive/2008/07/30/1256889.html
相关文章推荐
- 1、写一个函数返回参数二进制中 1 的个数(三种方法)2、获取一个数二进制序列中所有的偶数位和奇数位,分别输出二进制序列3、输出一个整数的每一位。4、两个int(32位)整数m和n的二进制表达中,有多
- 窗口函数中获取主程序实例句柄的三种方法
- 获取系统网络MAC地址的三种方法
- C++ 获取类成员函数地址方法 浅析
- 第二周项目一C/C++语言中函数传递的三种方式之方法二传地址
- Delphi代码获取网卡物理地址三种方法
- (转载)Linux编程获取本机IP地址的三种方法
- 将四个BYTE数值转换成IEEE754标准的浮点数(两种方法:用Addr函数取字节数字的首地址,或者用Absolute关键字)
- linux编程获取本机IP地址的三种方法
- php获取当前页面完整真实的url地址的方法,包括带参数的,总结了三种方法
- DOS命令下的三种获取远程主机MAC地址的方法
- 获取系统网络MAC地址的三种方法
- 获取成员函数地址3种方法
- linux编程获取本机IP地址的三种方法
- 获取类成员函数地址和调用的方法
- linux编程获取本机IP地址的三种方法
- 通过函数参数获取新创建指针的三种方法
- 在html界面获取地址栏内传过来的值的三种方法
- linux编程获取本机IP地址的三种方法
- DOS命令下获取远程主机MAC地址的三种方法