2008年9月13日
delphi中遍历枚举类型的方法
摘要： 刚好碰到 ，顺便试了下，有需要的朋友可以看看。 uses TypInfo; type TOrderType = (otFN,otGR,otSZ);var pi:PTypeInfo; i:Integer; ot:TOrderType; s:String;begin pi:= TypeInfo(TOrderType); with GetTypeData(pi)^ do begin for i :=... 阅读全文
posted @ 2008-09-13 23:11 ypq 阅读(11733) 评论(1) 推荐(0)