Delphi中使用@取函数地址的问题，转 Delphi中使用@取函数地址的问题

例如以下代码：

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;

type

TForm1 = class(TForm)

procedure one();

function two(x,y:integer):integer;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.one();

var

p : pointer;

begin

p:=@two;

end;

function TForm1.two(x,y:integer):integer;

begin

Result:=x+y;

end;

end.

在Delphi5中，没有任何问题，到了delphi7、2007、2009中就会报错：需要变量（Delphi6没试）

原因是新版本中要求返回函数地址的函数必须是全局函数，所以程序要改成这样：

................................

var

Form1: TForm1;

function two(x,y:integer):integer;

................................

function two(x,y:integer):integer; ......

例如以下代码：

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;

type

TForm1 = class(TForm)

procedure one();

function two(x,y:integer):integer;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.one();

var

p : pointer;

begin

p:=@two;

end;

function TForm1.two(x,y:integer):integer;

begin

Result:=x+y;

end;

end.

在Delphi5中，没有任何问题，到了delphi7、2007、2009中就会报错：需要变量（Delphi6没试）

原因是新版本中要求返回函数地址的函数必须是全局函数，所以程序要改成这样：

................................

var

Form1: TForm1;

function two(x,y:integer):integer;

................................

function two(x,y:integer):integer; ......