推广 热搜: LabVIEW  控制  自动化  电子  自动  软件  sci  机器视觉  编程  视觉 

在 DELPHI 中 procedure 型变量与 method 型变量的区别

   日期:2018-04-15     浏览:104    评论:0    
核心提示:Procedure型变量:在DELPHI中,函数、过程的地址可以赋给一个特殊类型的变量,变量可用如下方式声明:varp:procedure(num:intege
 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; 
 
打赏
 
更多>同类编程
0相关评论

推荐图文
推荐编程
点击排行

网站首页  |  关于我们  |  联系方式  |  使用协议  |  版权隐私  |  网站地图  |  排名推广  |  广告服务  |  积分换礼  |  网站留言  |  RSS订阅  |  违规举报