Go homepage(回首页)
Upload pictures (上传图片)
Write articles (发文字帖)

The author:(作者)aaa
published in(发表于) 2014/7/19 0:09:12
delphi中类引用的使用实例

类引用

类引用（Class Reference）是一种数据类型，有时又称为元类（MetaClass），是类的类型的引用。类引用的定义形式如下：

class of type
例如：

type SomeClass = class of TObject;

var AnyObj: SomeClass;
下面的例子说明了类引用的用法：

program Project1;

{$APPTYPE CONSOLE}

type

TPerson = class //人员类

Name: string; //姓名

end;

TEmployee = class(TPerson) //职员类

DeptName: string; //部门名称

procedure Infor; //显示职员信息

end;

CRef = class of TObject; //定义了一个"类引用"数据类型

var

Employee: array[0..1] of TObject; //类的变量数组

i: Integer; //循环变量

CR:array[0..1] of CRef; //类引用数组

{TEmployee }

procedure TEmployee.Infor;

begin

Writeln(’姓名：’,Name,’；部门名称：’,DeptName);

end;

begin

CR[0]:=TPerson; //给类引用赋值

CR[1]:=TEmployee;

for i:=0 to 1 do

begin

Employee[i]:=CR[i].Create; //创建对象

if Employee [i] is TEmployee then //判断对象的类型

begin

(Employee[I] as TEmployee).Name:=’残月’ ;

(Employee[I] as TEmployee).DeptName:=’人事部’ ;

(Employee[I] as TEmployee).Infor;

end;

end;

Readln;

end.
运行结果如下：

姓名：残月；部门名称：人事部
注意：上面定义了一个类引用类型的数组，其中的两个元素的数值分别为不同的两个类的类型。

赞