Embarcadero Delphi For loop using an enumeration


Example

A for loop iterate through items in an enumeration

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.

Output:

Sunday
Monday
Tuesday
Wednesday
Thursday
Friday
Saturday