delphi 如何获取重载函数的地址


本文整理自网络,侵删。

 在编译器看来, 重载函数根本就是完全不同的几个函数, 当然就会有不同的函数地址; 我们用常规方法获取的地址只是第一种重载的地址.
--------------------------------------------------------------------------------

代码文件:
--------------------------------------------------------------------------------

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.

相关阅读 >>

Delphi弹出信息框大全

Delphi winapi: getactivewindow - 获取当前活动窗口的句柄

Delphi动态创建组件,并释放内存

Delphi中生成控件的两种方法

Delphi 农历源码

Delphi 读取流信息

Delphi 以二进制方式读取图片保存到string

Delphi removewhitespaces 过滤字符串所有空格

Delphi crc算法的实现

Delphi通过将数据放入exe的资源信息中的方式制作自已的安装工具

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...