取类型数据

标签：info   system   click   name   ring   form   for   type   day   

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;

取类型数据

标签：info   system   click   name   ring   form   for   type   day   

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