program System_Collections_Specialized_StringEnumerator;

{$APPTYPE CONSOLE}
{$AUTOBOX ON}

uses
  System.Collections,
  System.Collections.Specialized;

type
  SamplesStringEnumerator = class
  public
    class procedure Main; 
  end;

{ SamplesStringEnumerator }

class procedure SamplesStringEnumerator.Main;
type
  TArrayOfString = array of string;
var
  myEnumerator: StringEnumerator;
  myArr: TArrayOfString;
  myCol: StringCollection;
begin
  myCol := StringCollection.Create;
  myArr := TArrayOfString.Create
                ('red', 'orange', 'yellow',
                 'green', 'blue', 'indigo', 'violet');
  myCol.AddRange(myArr);
  myEnumerator := myCol.GetEnumerator;
  while myEnumerator.MoveNext do
  begin
    Console.WriteLine('{0}', myEnumerator.Current);
  end;
  Console.WriteLine;
  myEnumerator.Reset;
  if myEnumerator.MoveNext then
    Console.WriteLine('The first element is {0}.',
                      myEnumerator.Current);
end;

//test program 
begin
  SamplesStringEnumerator.Main;
end.