delpi中的RTTI初试

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

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

1. unit Unit2;
2. interface
3. { TDemo }
4. uses  Classes ;
5. type
6. TDemo = class(TPersistent)
7. private
8. protected
9. public
10. FName : string;
11. FAge : Integer;
12. constructor Create;
13. destructor Destroy; override;
14. published
15. property Name : string read FName write FName;
16. property Age : Integer read FAge write FAge;
17. end;
18. implementation
19. { TDemo }
20. constructor TDemo.Create;
21. begin
22. FName := 'peirenlei';
23. end;
24. destructor TDemo.Destroy;
25. begin
26. inherited;
27. end;
28. end.

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

1. ADemo := TDemo.Create;
2. ADemo.Name := 'peirenlei';
3. ADemo.Age := 0;

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

1. var
2. APropList:PPropList;
3. ATypeInfo:PTypeInfo;
4. AClasDateInfo:PTypeData;
5. I : Integer;
6. begin
7. ATypeInfo := ADemo.ClassInfo;
8. AClasDateInfo := GetTypeData(ATypeInfo);
9. if AClasDateInfo.PropCount <> 0 then
10. begin
11. //分配空间
12. GetMem(APropList,sizeof(PPropInfo)*AClasDateInfo.PropCount);
13. try
14. GetPropInfos(ADemo.ClassInfo,APropList);  //得到类的属性列表
15. for I := 0 to AClasDateInfo.PropCount - 1 do
16. begin
17. if APropList[I]^.PropType^.Kind <> tkMethod then
18. mmo.Lines.Add(Format('%s:%s',[APropList[I]^.Name,APropList[I]^.PropType^.Name]));
19. end;
20. finally
21. FreeMem(APropList,sizeof(APropList)*AClasDateInfo.PropCount);
22. end;
23. end;
24. end;

输出：

1. Name:string
2. Age:Integer

3. 获取类的方法列表：

1. var
2. APropList:PPropList;
3. ATypeInfo:PTypeInfo;
4. AClasDateInfo:PTypeData;
5. I ,NumPro : Integer;
6. begin
7. ATypeInfo := ADemo.ClassInfo;
8. AClasDateInfo := GetTypeData(ATypeInfo);
9. if AClasDateInfo.PropCount <> 0 then
10. begin
11. //分配空间
12. GetMem(APropList,sizeof(PPropInfo)*AClasDateInfo.PropCount);
13. try
14. NumPro := GetPropList(ADemo.ClassInfo,[tkMethod],APropList);
15. if NumPro <> 0 then
16. begin
17. mmo.Lines.Add('-----events-------');
18. for I := 0 to NumPro - 1 do //获得事件属性的列表
19. begin
20. mmo.Lines.Add(Format('%s:%s',[APropList[i]^.Name,APropList[i]^.PropType^.Name]));
21. end;
22. end;
23. finally
24. FreeMem(APropList,sizeof(PPropInfo)*AClasDateInfo.PropCount);
25. end;
26. end;
27. end;

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

1. var
2. AProperInfo:PPropInfo;
3. AValue:string;
4. begin
5. AValue := GetPropValue(ADemo,'Name');
6. mmo.Lines.Add('Name='+AValue);
7. AValue := GetPropValue(ADemo,'Age');
8. mmo.Lines.Add('Age='+AValue);
9. SetPropValue(ADemo,'Name','zengzhen');
10. SetPropValue(ADemo,'Age',100);
11. AValue := GetPropValue(ADemo,'Name');
12. mmo.Lines.Add('Name='+AValue);
13. AValue := GetPropValue(ADemo,'Age');
14. mmo.Lines.Add('Age='+AValue);
15. end;

输出：

1. Name=peirenlei
2. Age=0
3. Name=zengzhen
4. Age=100

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