了解delphi过程类型/过程类型学习

⒈ 什么是过程类型    
  把一个变量声明为过程类型，能够把一个过程或函数做为一个总体赋给这个变量或者把这个变量做为参数传递给其它过程或函数。  
      声明一个过程类型的语法同声明一个过程或函数的首部语法类似，不一样的是在保留字Procedure或function后不须要有过程或函数的标识符，中国自学编程网首发，例如：  
      Type  
                Proc1=Procedure;  
                Proc2=Procedure(VarX,Y:integer);  
                Proc3=Function(X:Double):Double;  
  上例中，声明了三个过程类型，第一个是不带任何参数的过程，第二个是带两个参数的过程，第三个是带一个Double类型的参数并返回Double类型值的函数。  
  同声明一个过程或函数同样，您在声明一个过程类型时能够指定一种调用约定方式，缺省就是Register方式。    
  下面咱们举例说明过程类型的用法：  
  Type  
                SwapProc=Procedure(Var   X,Y:Integer);  
                MathFunc=Function(X:Double):Double;  
  {以上是类型声明部分}  
  Var  
                P:SwapProc;  
                F:MathFunc;  
  {以上把P说明为SwapProc   类型的变量，把F说明为MathFunc类型的变量}  
  Procedure   Swap(var   A,B:integer);  
  Var  
                Temp:Integer;  
  Begin  
                Temp:=A;  
                A:=B;  
                B:=Temp;  
  End;  
  Function   Tan(Angle:Double);  
  Begin  
                Tan:=Sin(Angle)/Cos(Angle);  
  End;  
  {以上定义了一个过程和一个函数}  
  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;