首页 > 其他 > 详细

取类型数据

时间:2018-05-04 13:43:07      阅读:210      评论:0      收藏:0      [点我收藏+]

System.TypInfo

 

procedure TForm1.Button5Click(Sender: TObject);
var
ti: PTypeInfo;
td: PTypeData;
i: Integer;
s: string;
begin
ti := TypeInfo(TWeekDays);
td := GetTypeData(ti);
for i := td^.MinValue to td^.MaxValue do
s := s + (GetEnumName(ti, i));
ShowMessage(s);
end;

取类型数据

原文:https://www.cnblogs.com/FKdelphi/p/8989730.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!