program System_Enum;

{$APPTYPE CONSOLE}
{$AUTOBOX ON}

uses System.Collections;

type
  SamplesEnumTest = class
  type
    Days = (Saturday, Sunday, Monday, Tuesday,
            Wednesday, Thursday, Friday);
            
    BoilingPoints = (Celcius = 100, 
                     Fahrenheit = 212);
    
    [FlagsAttribute]
    Colors = (Red = 1, 
              Green = 2, 
              Blue = 4, 
              Yellow = 8);
  public
    class procedure Main;
  end;

{ EnumTest }

class procedure SamplesEnumTest.Main;
var
  myColors: Colors;
  myEnumerator: IEnumerator;
  s: string;

  boiling: System.Type;
  weekdays: System.Type;
begin
  weekdays := TypeOf(Days);
  boiling := TypeOf(BoilingPoints);

  Console.WriteLine('The days of the week, and 
                     their corresponding values 
                     in the Days Enum are:');
  myEnumerator := System.Array(
                  Enum.GetNames(weekdays)).GetEnumerator;
  myEnumerator.Reset;
  while myEnumerator.MoveNext do
  begin
    s := myEnumerator.Current.ToString;
    Console.WriteLine('{0,-11}= {1}', 
                      s, 
                      Enum.Format(weekdays, 
                                  Enum.Parse(weekdays, s), 
                                  'd'));
  end;

  Console.WriteLine;
  Console.WriteLine('Enums can also be created
                     which have values that represent 
                     some meaningful amount.');
  Console.WriteLine('The BoilingPoints Enum defines 
                     the following items, and 
                     corresponding values:');

  myEnumerator := System.Array(
                  Enum.GetNames(boiling)).GetEnumerator;
  myEnumerator.Reset;
  while myEnumerator.MoveNext do
  begin
    s := myEnumerator.Current.ToString;
    Console.WriteLine('{0,-11}= {1}', 
                      s, 
                      Enum.Format(boiling, 
                                  Enum.Parse(boiling, s), 
                      'd'));
  end;

  myColors := (Colors.Red or Colors.Blue or Colors.Yellow);
  Console.WriteLine;
  Console.WriteLine('myColors holds a 
                     combination of colors. Namely: {0}', 
                    myColors);
end;

//program test
begin
  SamplesEnumTest.Main;
end.