本文介绍了一个使用 Delphi 实现的示例程序，该程序通过枚举 TWeekDays 类型的所有值并显示它们来演示如何操作枚举类型。此示例展示了获取枚举名称的方法，并通过循环遍历所有枚举值来展示其应用。
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;
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
