- 博客(2)
- 资源 (4)
- 收藏
- 关注
原创 在枚举类型的值和字符串之间相互转换
Uses TypInfo;//定义枚举类型typeTDayofWeek=(Monday,Tuesday,Wednesday,Thursday,FriDay,Saturday,Sunday);//由值转换为字符串GetEnumName(TypeInfo(TDayofWeek),Ord(Monday);//结果应该是字符串'Monday';//由字符串得到值GetEnumValue
2012-07-11 14:19:40 6775 1
原创 用RTTI 实现 禁用一组控件
Uses TypInfo;procedure DisableThem(Comps: array of TComponent);var Loop: Integer; PropInfo: PPropInfo;begin for Loop := Low(Comps) to High(Comps) do begin { Get info record for Enabl
2012-07-11 13:38:57 762
Advanced Installer 10.2 Cracker
2013-05-31
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人