标签：f1 f2 string flq MyFun 00000 重载 函数

如何获取重载函数的地址 - 回复 "flq_00000" 的问题

问题来源: http://www.cnblogs.com/del/archive/2008/07/30/1039045.html#1272783

---

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

---

代码文件:

---

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.

posted on 2008-07-30 23:46  万一  阅读(4297)  评论(6)  编辑  收藏

标签：f1,f2,string,flq,MyFun,00000,重载,函数
来源： https://blog.51cto.com/u_14617575/2747834

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。