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

Delphi 遍历类中的属性

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.

Delphi 遍历类中的属性的更多相关文章

  1. Java 遍历类中的属性

    public static void testReflect(Object model) throws NoSuchMethodException, IllegalAccessException, I ...

  2. java中遍历类中的属性、调用getter&setter方法

    public static void testReflect(Object model) throws NoSuchMethodException, IllegalAccessException, I ...

  3. 转载:java 中对类中的属性使用set/get方法的意义和用法

    经常看到有朋友提到类似:对类中的属性使用set/get方法的作用?理论的回答当然是封闭性之类的,但是这样对我们有什么作用呢?为什么要这样设计?我直接使用属性名来访问不是更直接,代码更简洁明了吗?下面我 ...

  4. 尚硅谷面试第一季-11MyBatis中当实体类中的属性名和表中的字段名不一样怎么办

    问题: MyBatis中当实体类中的属性名和表中的字段名不一样 ,怎么办 ? 解决方案: 1.写sql语句时起别名 <!-- id属性:必须是接口中方法的方法名 resultType属性:必须是 ...

  5. 关于System类中out属性 实例化的问题

    System类中out属性的声明是这样的: public final static PrintStream out = nullPrintStream(); private static PrintS ...

  6. 使用反射获取类中的属性(可用于动态返回PO类的列,当做表格的表头)

    //利用反射取类中的属性字段 try { Class clazz = Class.forName("houji.bean.model.TaskModel"); Field[] fi ...

  7. Python 简明教程 --- 20,Python 类中的属性与方法

    微信公众号:码农充电站pro 个人主页:https://codeshellme.github.io 与客户保持良好的关系可以使生产率加倍. -- Larry Bernstain 目录 类中的变量称为属 ...

  8. Java初学者作业——定义英雄类(Hero),英雄类中的属性包括:姓名、攻击力、防御力、生命值和魔法值;方法包括:攻击、介绍。

    返回本章节 返回作业目录 需求说明: 定义英雄类(Hero),英雄类中的属性包括:姓名.攻击力.防御力.生命值和魔法值:方法包括:攻击.介绍. 实现思路: 分析类的属性及其变量类型. 分析类的方法及其 ...

  9. Java初学者作业——定义管理员类(Admin),管理员类中的属性包括:姓名、账号、密码、电话;方法包括:登录、显示自己的信息。

    返回本章节 返回作业目录 需求说明: 定义管理员类(Admin),管理员类中的属性包括:姓名.账号.密码.电话:方法包括:登录.显示自己的信息. 实现思路: 分析类的属性及其变量类型. 分析类的方法及 ...

随机推荐

  1. 用eclipse怎么打war包?

    用eclipse怎么打war包? 在服务器上部署很多都是用war包进行部署的,eclipse是很友好的支持把java项目打成war包的,下面就把打war的经验写出来,供大家参考 百度经验:jingya ...

  2. python multiprocessing模块

    python multiprocessing模块 原文地址 multiprocessing multiprocessing支持子进程.通信和共享数据.执行不同形式的同步,提供了Process.Queu ...

  3. Android相关资源

    各类黑客大会资料 https://infocon.org/cons/ 各类课程.视频 https://github.com/Developer-Y/cs-video-courses#security ...

  4. 设置mysql数据表列自动递增以及数据行插入操作

    创建mysql数据表,设置id列递增.主键create table running_log ( id int primary key auto_increment, routename varchar ...

  5. snmpwalk工具使用

     snmpwalk是SNMP的一个工具,它使用SNMP的GETNEXT请求查询指定OID(SNMP协议中的对象标识)入口的所有OID树信息,并显示给用户. 在linux下使用snmpwalk工具,我们 ...

  6. input输入框实现联想关键词功能

    实现原理很简单,代码如下: <!DOCTYPE html> <html> <head> <meta charset="UTF-8"> ...

  7. Tengine + Lua + GraphicsMagick 实现图片自动裁剪/缩放

    http://my.oschina.net/eduosi/blog/169606

  8. 双层for循环用java中的stream流来实现

    //双重for循环for (int i = 0; i < fusRecomConfigDOList.size(); i++) { for (int j = 0; j < fusRecomC ...

  9. 29.密码学知识-消息认证码MAC-6——2019年12月19日

    1. 消息认证码 1.1 消息认证 消息认证码(message authentication code)是一种确认完整性并进行认证的技术,取三个单词的首字母,简称为MAC. 思考改进方案? 从哈希函数 ...

  10. JavaSE---显式锁

    1.概述 1.1.jdk5之前,用于  调节共享对象访问机制  只有 synchronized.volatile:     jdk5之后,提供了  显示锁:Lock.ReentrantLock...: ...