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;