delphi过程、函数型变量分析

Procedure型变量： 

 

在DELPHI中，函数、过程的地址可以赋给一个特殊类型的变量，变量可用如下方式声明： 
var p : procedure(num:integer); //过程 
或： 
var f : function(num:integer):integer;//函数 
也可定义一个过程（或函数）类型，再定义该类型的变量，如： 
type TMyProc = Procedure(num:integer); 
var p : TMyProc; 

example: 
type TMyProc= procedure (filename : string);//定义过程类型 
procedure clearfile(filename : string); 
begin 
{….} 
end ; 
… 
var p:TMyProc; //定义过程变量 
… 
p := clearfile; //将具体实现的过程地址赋给过程变量 
… 
p(‘log.dat’); //调用过程 
… 
可以将该类型的变量赋nil表示清除。 
通过这种方式定义函数或过程的变量十分有用，如可用于装入动态链接库、根据不同的条件调用不同的过程等。 


Method型变量： 
在DELPHI中还有一种特殊的过程，叫做方法（method），在定义方法类型的时候要在过程定义的后面加上 of object，如： 
type TMyMethod=Procedure(num:integer) of object; 
同样也可定义过程类型的变量： 
var m : TMyMethod; 
可以将该类型的变量赋nil表示清除。 
方法类型常用于类定义中的事件定义，如控件中常用的OnClick事件，它的类型定义如下： 
type TNotifyEvent=Procedure(Sender : TObject) of object; 


区别： 
procedure与method的定义虽然很相似，但两者并不一样，也不通用，不能互相赋值。procedure型变量是一个指针指向实际的代码地址，而method型变量实际是一对指针，第一个指向代码的地址，第二个指向包含该代码的类的一个实例。区别一个过程是否是方法就看它是否属于一个类的成员。 
Example： 
Type 
TMyProc=Procedure(str : String); //定义普通过程类型 
TMyMethod=Procedure(str : String) of object;//定义方法类型 
… 
//下面的代码是一个普通的过程 
Procedure Proc1(str : String); 
Begin 
ShowMessage(str); 
End; 
… 
//下面的代码是一个方法 
Procedure TForm1.Proc2(str : String); 
Begin 
ShowMessage(str); 
End; 
… 
var p : TMyProc; 
   m : TMyMethod; 
… 
p := Proc1; //正确 
m := Proc2; //正确 
p := Proc2; //错误！ 
m := Proc1; //错误！ 

在类型定义中，类型的属性（如事件）常用以下方式定义在published关键字后，如： 
property OnClick : TNotifyEvent read FOnClick write FOnClick;//FOnClick为类的方法型私有成员变量 
但published关键字后的属性不能是普通的过程类型。普通过程类型只能在类的private、public、protected成员中。而方法类型可以是类的任何类型成员。 
Example： 
Type 
  TMyClass = class(TObject) 
  Private 
FOnMyMethod: TMyMethod; 
    FOnMyProc : TMyProc; 
  Public 
Property OnMyProc1 : TMyProc read FOnMyProc write FOnMyProc； //正确 
  Published 
Property OnMyMethod : TMyMethod read FOnMyMethod write FOnMyMethod; //正确 
Property OnMyProc2 : TMyProc read FOnMyProc write FOnMyProc； //错误！ 
  End;