打开APP
userphoto
未登录

开通VIP,畅享免费电子书等14项超值服

开通VIP
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; 

来源:http://www.icode9.com/content-4-183601.html
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请点击举报
打开APP,阅读全文并永久保存 查看更多类似文章
猜你喜欢
类似文章
【热】打开小程序,算一算2024你的财运
delphi dll 调用技巧
Delphi 过程与函数
Delphi指针及其它(转)
Delphi 编写DLL动态链接库文件的知识
delphi 定义全局变量
用delphi编写自己的可视化控件_delphi教程
更多类似文章 >>
生活服务
热点新闻
分享 收藏 导长图 关注 下载文章
绑定账号成功
后续可登录账号畅享VIP特权!
如果VIP功能使用有故障,
可点击这里联系客服!

联系客服