计算机等级考试：Delphi过程类型的基础学习

　　//以上定义了一个过程和一个函数

　　P:=Swap;

　　F:=Tan;

　　//以上把Swap过程赋给P变量，把Tan函数赋给F变量

　　P(I,J); //相当于调用Swap(I,J)

　　X:=F(X); //相当于X:=tan(X)

　　这里举例说明了一个过程或函数可以赋给一个过程类型的变量，事实上过程类型的数据还可以作为参数传递给其它过程或函数。

　　注意：不能把过程类型直接作为函数的返回类型，不过您可以让函数的返回类型为指针类型，让指针指向一个过程或函数的地址。

　　当把一个过程或函数赋给一个过程类型的变量时要注意赋值相容，只有满足下列条件才是赋值相容的。 调用约定方式必须相同。

　　参数个数必须相同，相应的其数据类型必须相同，但参数名不一定必须相同。

　　函数的返回类型必须相同。

　　Object Pascal规定，nil同任何过程类型相容。

　　过程类型根据其是否运用于对象分为两大类：一类是全局过程指针，另一类是方法指针。

　　全局过程指针指向的是全局的过程或函数，例如上例中的SwapProc和MathFunc,这类过程类型在声明没有Of object 部分。

　　方法指针在明时必须加上Of object，表示它所指向的是一个对象的方法，程序示例如下：

　　Type TNotifyEvent=Procedure (Sender:Tobject) Of Object;

　　有了方法指针后，要扩展一个对象，不需要重新派生出一个新的，只要把其它对象的方法赋给个这个方法指针就可以了，这样可以避免对象的层次过多。

　　方法指针通常用于把对象的事件同一段已有的代码(可能是其它对象的)相联系起来，例如您想定义用户单击按钮时的缺省行为，您不必从 Tbutton对象派生出一个新对象并重载它的响应单击的行为， 您只需要把一段已有的代码同一个方法指针联系起来。

　　方法指针的示例如下：

　　Type TNotifyEvent=Procedure(Sender:Tobject) Of Object;

　　Type TAnObject=Class(TObject) FOnClick:TNotifyEvent;

　　End;

　　TAnOtherObject=Class(TObject) Procedure AMethod(Sender:Tobject);

　　end;

　　Var AnObject:TAnObject;

　　AnOtherObject:TAnotherObject;

　　Begin AnObject:=TAnobject.Create;

　　AnotherObject:=TAnotherObject.Create;

　　AnObject.FOnClick:=AnotherObject.Amethod;

　　end;