For 循环使用枚举

Created: November-22, 2018

for 循环遍历枚举中的项目

program EnumLoop;

uses
  TypInfo;

type
  TWeekdays = (Sunday, Monday, Tuesday, Wednesday, Thursday, Friday, Saturday);

var
  wd : TWeekdays;
begin

  for wd in TWeekdays do
    WriteLn(GetEnumName(TypeInfo(TWeekdays), Ord(wd)));

end.

输出：

周日
周一
周二
周三
周四
周五
周六