取类型数据

Posted 疯狂delphi

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了取类型数据相关的知识，希望对你有一定的参考价值。

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;

以上是关于取类型数据的主要内容，如果未能解决你的问题，请参考以下文章