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;
相关文档：
Chr 将一个有序数据转换为一个ANSI字符
Ord 将一个有序类型值转换为它的序号
Round 转换一个实型值为四舍五入后的整型值
Trunc 转换一个实型值为小数截断后的整型值
Int 返回浮点数的整数部分
IntToStr 将数值转换为字符� ......
Delphi动态事件深入分析
2009-2-7
作者:不得闲
核心提示：本实验证明了在类中方法的调用时候，所有的方法都隐含了一个Self参数，并且该参数作为对象方法的第一个参数传递...
首先做一个空窗体，放入一Button。
在implementation下面声明两个方法如下：
//外部方法，只声明一个参数，此时按照标准的对象内部事件方法T ......
在编译delphi程序时会出现在些提示，全是E文的，现在给大家一个对照表，可以更好的理解错误提示信息！
';' not allowed before 'ELSE' ElSE前不允许有“;”
'' clause not allowed in OLE automation section 在OLE自动区段不允许“”子句
'' is not a type identifier 不是类型标识符
'' not prev ......
方法1：可写为函数，再调用
Application.CreateForm(TForm1, Form1);
Form1.ShowModal;
Form1.Free;
方法2：
Form1:= TForm1.Create(Application);
try
Form1.ShowModal;
finally
......
