delpi中的RTTI初试

时间：2016-03-02 23:35:21 阅读：242 评论：0 收藏：0 [点我收藏+]

标签：

java中的反射机制使我们能够在运行期间获取运行期类的信息，那么在delphi中有没有这样的功能呢？答案是有，实现这种功能的机制在delphi中叫做RTTI,废话少说，先来一段demo:

1.先定义一个demo类，注意这个类必须要以TPersistent为基类，代码如下：

Delphi代码

2.接下来,创建一个这个类的实例：

Delphi代码

3.获取该实例的属性列表：

Delphi代码

var
APropList:PPropList;
ATypeInfo:PTypeInfo;
AClasDateInfo:PTypeData;
I : Integer;
begin
ATypeInfo := ADemo.ClassInfo;
AClasDateInfo := GetTypeData(ATypeInfo);
if AClasDateInfo.PropCount <> 0 then
begin
//分配空间
GetMem(APropList,sizeof(PPropInfo)*AClasDateInfo.PropCount);
try
GetPropInfos(ADemo.ClassInfo,APropList); //得到类的属性列表
for I := 0 to AClasDateInfo.PropCount - 1 do
begin
if APropList[I]^.PropType^.Kind <> tkMethod then
mmo.Lines.Add(Format(‘%s:%s‘,[APropList[I]^.Name,APropList[I]^.PropType^.Name]));
end;
finally
FreeMem(APropList,sizeof(APropList)*AClasDateInfo.PropCount);
end;
end;
end;

输出：

Delphi代码

3. 获取类的方法列表：

Delphi代码

var
APropList:PPropList;
ATypeInfo:PTypeInfo;
AClasDateInfo:PTypeData;
I ,NumPro : Integer;
begin
ATypeInfo := ADemo.ClassInfo;
AClasDateInfo := GetTypeData(ATypeInfo);
if AClasDateInfo.PropCount <> 0 then
begin
//分配空间
GetMem(APropList,sizeof(PPropInfo)*AClasDateInfo.PropCount);
try
NumPro := GetPropList(ADemo.ClassInfo,[tkMethod],APropList);
if NumPro <> 0 then
begin
mmo.Lines.Add(‘-----events-------‘);
for I := 0 to NumPro - 1 do //获得事件属性的列表
begin
mmo.Lines.Add(Format(‘%s:%s‘,[APropList[i]^.Name,APropList[i]^.PropType^.Name]));
end;
end;
finally
FreeMem(APropList,sizeof(PPropInfo)*AClasDateInfo.PropCount);
end;
end;
end;

4.获取实例类的属性和属性值：

Delphi代码

输出：

Delphi代码

http://peirenlei.iteye.com/blog/378465

标签：

原文地址：http://www.cnblogs.com/findumars/p/5236728.html

踩

(0)

评论一句话评论（0）

分享档案

更多>

周排行