Delphi 遍历类中的属性

http://blog.csdn.net/easyboot/article/details/8004954

Delphi 遍历类中的属性

标签： delphistringbuttonclassformswindows

2012-09-21 16:45 2125人阅读 评论(1)  举报

 分类：

Delphi（54） 

版权声明：本文为博主原创文章，未经博主允许不得转载。

1. unit Unit1;
2. interface
3. uses
4. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
5. Dialogs, StdCtrls,TypInfo;
6. type
7. TForm1 = class(TForm)
8. Button2: TButton;
9. procedure Button1Click(Sender: TObject);
10. procedure Button2Click(Sender: TObject);
11. private
12. { Private declarations }
13. public
14. { Public declarations }
15. end;
16. {$M+} //如果不用 {$M+} 则需要继承TPersistent
17. TTest = class(TObject)
18. public
19. FName,FSex,FScholl:string;
20. published
21. property Name :string read FName write FName;
22. property Sex :string read FSex write FSex;
23. property Scholl :string read FScholl write FScholl;
24. end;
25. {$M-}
26. var
27. Form1: TForm1;
28. implementation
29. {$R *.dfm}
30. procedure TForm1.Button2Click(Sender: TObject);
31. var
32. PropCount, I: SmallInt;
33. PropList: PPropList;
34. PropStr,sValues: string;
35. AClass:TTest;
36. AStrings:TStrings;
37. begin
38. AStrings:=TStrings.Create;
39. AClass:=TTest.Create;
40. AClass.Name:='MyTest';
41. AClass.Sex:='Male';
42. AClass.Scholl:='Scholl';
43. PropCount := GetTypeData(AClass.ClassInfo).PropCount;
44. GetPropList(AClass.ClassInfo, PropList);
45. for I := 0 to PropCount - 1 do
46. begin
47. case PropList[I]^.PropType^.Kind of
48. tkClass      : PropStr := '[Class] ';
49. tkMethod     : PropStr := '[Method]';
50. tkSet        : PropStr := '[Set]   ';
51. tkEnumeration: PropStr := '[Enum]  ';
52. else
53. PropStr := '[Field] ';
54. end;
55. PropStr := PropStr + PropList[I]^.Name;
56. PropStr := PropStr + ': ' + PropList[I]^.PropType^.Name;
57. sValues:=GetPropValue(AClass,PropList[I].Name,True);
58. ShowMessage(sValues);
59. ShowMessage(PropStr);
60. end;
61. FreeMem(PropList);
62. end;
63. end.