思享工具箱

delphi RTTI 反射技术

摘要：
[delphi]viewplaincopyunitUnit_main;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,TypInfo;typeTForm_main=class(TForm)Button1:TButton;Memo1:TMemo;Memo2
  1. unitUnit_main;
  3. interface
  5. uses
  6. Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
  7. Dialogs,StdCtrls,TypInfo;
  9. type
  10. TForm_main=class(TForm)
  11. Button1:TButton;
  12. Memo1:TMemo;
  13. Memo2:TMemo;
  14. Button2:TButton;
  15. Button3:TButton;
  16. Button4:TButton;
  17. Button5:TButton;
  18. Button6:TButton;
  19. Button7:TButton;
  20. Button8:TButton;
  21. Button9:TButton;
  22. Button10:TButton;
  23. Button11:TButton;
  24. Button12:TButton;
  25. Button13:TButton;
  26. procedureButton1Click(Sender:TObject);
  27. procedureButton2Click(Sender:TObject);
  28. procedureButton3Click(Sender:TObject);
  29. procedureButton4Click(Sender:TObject);
  30. procedureButton5Click(Sender:TObject);
  31. procedureButton6Click(Sender:TObject);
  32. procedureButton7Click(Sender:TObject);
  33. procedureButton8Click(Sender:TObject);
  34. procedureButton9Click(Sender:TObject);
  35. procedureButton10Click(Sender:TObject);
  36. procedureButton11Click(Sender:TObject);
  37. procedureButton12Click(Sender:TObject);
  38. procedureButton13Click(Sender:TObject);
  39. private
  40. {Privatedeclarations}
  41. public
  42. {Publicdeclarations}
  43. end;
  45. PTKeyDog=^TKeyDog;
  47. TKeyDog=record
  48. id:Integer;
  49. projectname:string;
  50. city:string;
  51. letter:string;
  52. hash:string;
  53. code:string;
  54. note:string;
  55. filepath:string;
  56. userid:Integer;
  57. end;
  59. {自定义的类}
  60. TMyClass=class(TComponent)
  61. public
  62. proceduremsg(conststr:string);
  63. functionAdd(consta,b:Integer):Integer;
  64. end;
  67. //编译指令Methodinfo是Delphi2009新增的,只有它打开了,ObjAuto才可以获取public区的信息.
  68. //这样,ObjAuto可以获取TClass3的public、published和默认区域的信息.
  69. {$M+}
  70. {$METHODINFOON}
  72. TClass3=class
  73. functionFun3:string;
  74. private
  75. functionFun3Private:string;
  76. protected
  77. functionFun3Protected:string;
  78. public
  79. functionFun3Public:string;
  80. published
  81. functionFun3Published:string;
  82. end;
  83. {$METHODINFOOFF}
  84. {$M-}
  86. var
  87. Form_main:TForm_main;
  89. implementation
  91. uses
  92. Rtti,ObjAuto;
  93. {$R*.dfm}
  95. //获取对象的RTTI属性与事件的函数
  96. functionGetPropertyAndEventList(obj:TObject;
  97. pList,eList:TStringList):Boolean;
  98. var
  99. ClassTypeInfo:PTypeInfo;{类的信息结构指针}
  100. ClassDataInfo:PTypeData;{类的数据结构指针}
  101. propertyList:PPropList;{TPropInfo是属性的数据结构;
  102. PPropList是其指针;
  103. TPropList是属性结构指针的列表数组;
  104. PPropList是指向这个数组的指针}
  106. num:Integer;{记录属性的总数}
  107. size:Integer;{记录属性结构的大小}
  108. i:Integer;
  109. begin
  110. ClassTypeInfo:=obj.ClassInfo;{先获取:类的信息结构指针}
  111. ClassDataInfo:=GetTypeData(ClassTypeInfo);{再获取:类的数据结构指针}
  112. num:=ClassDataInfo.PropCount;{属性总数}
  113. size:=SizeOf(TPropInfo);{属性结构大小}
  115. GetMem(propertyList,size*num);{给属性数组分配内存}
  117. GetPropInfos(ClassTypeInfo,propertyList);{获取属性列表}
  119. fori:=0tonum-1do
  120. begin
  121. ifpropertyList[i].PropType^.Kind=tkMethodthen{如果是事件;事件也是属性吗,给分出来}
  122. eList.Add(propertyList[i].Name)
  123. else
  124. pList.Add(propertyList[i].Name);
  125. end;
  127. pList.Sort;
  128. eList.Sort;{排序}
  130. FreeMem(propertyList);{释放属性数组的内存}
  132. Result:=True;
  133. end;
  135. procedureTForm_main.Button10Click(Sender:TObject);
  136. var
  137. obj:TMyClass;
  138. t:TRttiType;
  139. m1,m2:TRttiMethod;
  140. r:TValue;//TRttiMethod.Invoke的返回类型
  141. begin
  142. t:=TRttiContext.Create.GetType(TMyClass);
  143. {获取TMyClass类的两个方法}
  144. m1:=t.GetMethod('msg');{procedure}
  145. m2:=t.GetMethod('Add');{function}
  147. obj:=TMyClass.Create(Self);{调用需要依赖一个已存在的对象}
  149. {调用msg过程}
  150. m1.Invoke(obj,['Delphi2010']);{将弹出信息框}
  152. {调用Add函数}
  153. r:=m2.Invoke(obj,[1,2]);{其返回值是个TValue类型的结构}
  154. ShowMessage(IntToStr(r.AsInteger));{3}
  156. obj.Free;
  157. end;
  159. procedureTForm_main.Button11Click(Sender:TObject);
  160. var
  161. obj:TMyClass;
  162. t:TRttiType;
  163. p:TRttiProperty;
  164. r:TValue;
  165. begin
  166. obj:=TMyClass.Create(Self);
  167. t:=TRttiContext.Create.GetType(TMyClass);
  169. p:=t.GetProperty('Name');//继承自TComponent的name
  171. r:=p.GetValue(obj);
  172. ShowMessage(r.AsString);{原来的}
  174. p.SetValue(obj,'NewName');
  175. r:=p.GetValue(obj);
  176. ShowMessage(r.AsString);{NewName}
  178. obj.Free;
  179. end;
  181. procedureTForm_main.Button12Click(Sender:TObject);
  182. var
  183. t:TRttiType;
  184. p:TRttiProperty;
  185. r:TValue;
  186. begin
  187. t:=TRttiContext.Create.GetType(TButton);
  189. p:=t.GetProperty('Align');
  190. p.SetValue(Button1,TValue.FromOrdinal(TypeInfo(TAlign),Ord(alLeft)));
  192. r:=p.GetValue(Button1);
  193. ShowMessage(IntToStr(r.AsOrdinal));{3}
  194. end;
  196. procedureTForm_main.Button13Click(Sender:TObject);
  197. var
  198. MiArr:TMethodInfoArray;
  199. Mi:PMethodInfoHeader;
  200. obj:TClass3;
  201. begin
  202. obj:=TClass3.Create;
  203. MiArr:=GetMethods(obj.ClassType);
  205. Memo1.Clear;
  206. forMiinMiArrdo
  207. Memo1.Lines.Add(string(Mi.Name));
  209. obj.Free;
  210. end;
  212. procedureTForm_main.Button1Click(Sender:TObject);
  213. var
  214. propertyL,EventL:TStringList;
  215. begin
  216. //属性
  217. propertyL:=TStringList.Create;
  218. //事件
  219. EventL:=TStringList.Create;
  221. Memo1.Clear;
  222. Memo2.Clear;
  224. GetPropertyAndEventList(Self,propertyL,EventL);{调用函数,第一个参数是对象名}
  225. Memo1.Lines:=propertyL;
  226. Memo2.Lines:=EventL;
  228. propertyL.Free;
  229. EventL.Free;
  230. end;
  232. procedureTForm_main.Button2Click(Sender:TObject);
  233. var
  234. ctx:TRttiContext;
  235. t:TRttiType;
  236. begin
  237. Memo1.Clear;
  238. fortinctx.GetTypesdo
  239. Memo1.Lines.Add(t.Name);
  240. end;
  242. procedureTForm_main.Button3Click(Sender:TObject);
  243. var
  244. ctx:TRttiContext;
  245. t:TRttiType;
  246. m:TRttiMethod;
  247. begin
  248. Memo1.Clear;
  249. t:=ctx.GetType(TButton);
  250. //formint.GetMethodsdoMemo1.Lines.Add(m.Name);
  251. formint.GetMethodsdo
  252. Memo1.Lines.Add(m.ToString);
  253. end;
  255. procedureTForm_main.Button4Click(Sender:TObject);
  256. var
  257. ctx:TRttiContext;
  258. t:TRttiType;
  259. p:TRttiProperty;
  260. begin
  261. Memo1.Clear;
  262. t:=ctx.GetType(TButton);
  263. //forpint.GetPropertiesdoMemo1.Lines.Add(p.Name);
  264. forpint.GetPropertiesdo
  265. Memo1.Lines.Add(p.ToString);
  266. end;
  268. procedureTForm_main.Button5Click(Sender:TObject);
  269. var
  270. ctx:TRttiContext;
  271. t:TRttiType;
  272. f:TRttiField;
  273. begin
  274. Memo1.Clear;
  275. t:=ctx.GetType(TButton);
  276. //forfint.GetFieldsdoMemo1.Lines.Add(f.Name);
  277. forfint.GetFieldsdo
  278. Memo1.Lines.Add(f.ToString);
  279. end;
  281. //http://my.oschina.net/hermer/blog/320075
  282. procedureTForm_main.Button6Click(Sender:TObject);
  283. var
  284. ctx:TRttiContext;
  285. t:TRttiType;
  286. ms:TArray<TRttiMethod>;
  287. ps:TArray<TRttiProperty>;
  288. fs:TArray<TRttiField>;
  289. begin
  290. Memo1.Clear;
  291. t:=ctx.GetType(TButton);
  293. ms:=t.GetMethods;
  294. ps:=t.GetProperties;
  295. fs:=t.GetFields;
  297. Memo1.Lines.Add(Format('%s类共有%d个方法',[t.Name,Length(ms)]));
  298. Memo1.Lines.Add(Format('%s类共有%d个属性',[t.Name,Length(ps)]));
  299. Memo1.Lines.Add(Format('%s类共有%d个字段',[t.Name,Length(fs)]));
  300. end;
  302. procedureTForm_main.Button7Click(Sender:TObject);
  303. var
  304. t:TRttiRecordType;
  305. f:TRttiField;
  306. begin
  307. Memo1.Clear;
  308. t:=TRttiContext.Create.GetType(TypeInfo(TPoint)).AsRecord;
  309. Memo1.Lines.Add(t.QualifiedName);
  310. Memo1.Lines.Add(Format('Size:%d',[t.TypeSize]));
  311. Memo1.Lines.Add(EmptyStr);
  313. Memo1.Lines.Add(Format('字段数:%d',[Length(t.GetFields)]));
  314. Memo1.Lines.Add(Format('方法数:%d',[Length(t.GetMethods)]));
  315. Memo1.Lines.Add(Format('属性数:%d',[Length(t.GetProperties)]));
  316. Memo1.Lines.Add(EmptyStr);
  318. Memo1.Lines.Add('全部字段:');
  319. forfint.GetFieldsdo
  320. Memo1.Lines.Add(f.ToString);
  321. end;
  323. procedureTForm_main.Button8Click(Sender:TObject);
  324. var
  325. t:TRttiRecordType;
  326. f:TRttiField;
  327. begin
  328. Memo1.Clear;
  329. t:=TRttiContext.Create.GetType(TypeInfo(TKeyDog)).AsRecord;
  330. Memo1.Lines.Add(t.QualifiedName);
  331. Memo1.Lines.Add(Format('Size:%d',[t.TypeSize]));
  332. Memo1.Lines.Add(EmptyStr);
  334. Memo1.Lines.Add(Format('字段数:%d',[Length(t.GetFields)]));
  335. Memo1.Lines.Add(Format('方法数:%d',[Length(t.GetMethods)]));
  336. Memo1.Lines.Add(Format('属性数:%d',[Length(t.GetProperties)]));
  337. Memo1.Lines.Add(EmptyStr);
  339. Memo1.Lines.Add('全部字段:');
  340. forfint.GetFieldsdo
  341. Memo1.Lines.Add(f.ToString);
  342. end;
  344. procedureTForm_main.Button9Click(Sender:TObject);
  345. var
  346. t:TRttiOrdinalType;
  347. begin
  348. Memo1.Clear;
  350. //先从类型名获取类型信息对象
  351. t:=TRttiContext.Create.GetType(TypeInfo(Byte))asTRttiOrdinalType;
  352. Memo1.Lines.Add(Format('%s-%s',[t.Name,t.QualifiedName]));
  353. Memo1.Lines.Add(Format('Size:%d',[t.TypeSize]));
  354. Memo1.Lines.Add('QualifiedName:'+t.QualifiedName);
  355. Memo1.Lines.Add(Format('Min,Max:%d,%d',[t.MinValue,t.MaxValue]));
  356. Memo1.Lines.Add(EmptyStr);//空字串
  358. //可以用AsOrdinal方法代替前面的asTRttiOrdinalType
  359. t:=TRttiContext.Create.GetType(TypeInfo(Word)).AsOrdinal;
  360. Memo1.Lines.Add(Format('%s:%s',[t.Name,t.QualifiedName]));
  361. Memo1.Lines.Add(Format('Size:%d',[t.TypeSize]));
  362. Memo1.Lines.Add(Format('Min,Max:%d,%d',[t.MinValue,t.MaxValue]));
  363. Memo1.Lines.Add(EmptyStr);
  365. //也可以直接强制转换
  366. t:=TRttiOrdinalType(TRttiContext.Create.GetType(TypeInfo(Integer)));
  367. Memo1.Lines.Add(Format('%s:%s',[t.Name,t.QualifiedName]));
  368. Memo1.Lines.Add(Format('Size:%d',[t.TypeSize]));
  369. Memo1.Lines.Add(Format('Min,Max:%d,%d',[t.MinValue,t.MaxValue]));
  370. Memo1.Lines.Add(EmptyStr);
  371. end;
  373. {TMyClass}
  375. functionTMyClass.Add(consta,b:Integer):Integer;
  376. begin
  377. Result:=a+b;
  378. end;
  380. procedureTMyClass.msg(conststr:string);
  381. begin
  382. MessageDlg(str,mtInformation,[mbYes],0);
  383. end;
  385. {TClass3}
  387. functionTClass3.Fun3:string;
  388. begin
  389. Result:='Fun3';
  390. end;
  392. functionTClass3.Fun3Private:string;
  393. begin
  394. Result:='Fun3Private';
  395. end;
  397. functionTClass3.Fun3Protected:string;
  398. begin
  399. Result:='Fun3Protected';
  400. end;
  402. functionTClass3.Fun3Public:string;
  403. begin
  404. Result:='Fun3Public';
  405. end;
  407. functionTClass3.Fun3Published:string;
  408. begin
  409. Result:='Fun3Published';
  410. end;
  412. end.
http://blog.csdn.net/earbao/article/details/46729785

标签：#string#delphi | 浏览：256 | 发布日期：

免责声明：文章转载自《delphi RTTI 反射技术》仅用于学习参考。如对内容有疑问，请及时联系本站处理。

上篇[JavaWeb]SpringSecurity-OAuth2.0 统一认证、资源分离的配置，用于分布式架构、模块化开发的认证体系建立SQL Server用户登录下篇

宿迁高防，2C2G15M，22元/月；香港BGP，2C5G5M，25元/月 雨云优惠码：MjYwNzM=

相关文章

.NET系统框架

本书是一本讲解.NET技术的书籍，目标读者群也是在.NET框架（.NET Framework）下进行开发的程序员，因此我们无法回避的问题就是：什么是.NET框架？它包含了哪些内容？为开发程序提供了哪些支持？很多朋友对这类个问题的第一反应可能是.NET框架所提供的庞大类库及编写代码所采用的C#语言，实际上远不止这些。 要描述.NET框架，自然会遇到与其相关的...

Java里import语句使用

文件一： package com.xuexi;//在 Java 中，如果给出一个完整的限定名，包括包名、类名，那么 Java 编译器就可以很容易地定位到源代码或者类。// import 语句就是用来提供一个合理的路径，使得编译器可以找到某个类。public class Import { String name; int age; Stri...

使用Lucene.NET实现数据检索功能

引言     在软件系统中查询数据是再平常不过的事情了，那当数据量非常大，数据存储的媒介不是数据库，或者检索方式要求更为灵活的时候，我们该如何实现数据的检索呢？为数据建立索引吧，利用索引技术可以更灵活更快捷的实现检索功能。     以下我要介绍的是.NET版的Lucene在实际项目中是如何应用的。 案例概要     我以一个文件检索系统为例，主要功能就...

使用javaMail接收邮件（比较全）

package org.davidfang.mail;import java.io.BufferedInputStream;import java.io.BufferedOutputStream;import java.io.File;import java.io.FileNotFoundException;import java.io.FileOutpu...

android界面布局

（一）LinearLayout界面编排模式 他的格式是按照线性顺序，由上往下或右左往右，逐一排列界面组件。 layout_中的“match_parent”表示要填满他所在的外框，而“wrap_content”表示它的大小只要满足内部所包含的界面组件即可。 android:orientation:“horizontal”表示排列方式为水平，而“vertica...

WPF多语言化的实现

　　Metro插件系统系列就暂时停一下，这次我们讨论一下WPF的资源本地化实现，主要用到的:CultureInfo,ResourceManger,MarkupExtension,RESX文件，这些都是.NET框架提供的。 项目结构： 运行结果： 可在程序运行时，实时切换语言 CultureInfo 　　CultureInfo类表示有关特定区域性的信息...

最新文章

随机推荐

思享工具箱导航