program System_Collections_Queue;
{$APPTYPE CONSOLE}
{$AUTOBOX ON}

uses
  System.Collections;

type
  SamplesQueue = class
  public
    class procedure Main;
  private
    class procedure PrintValues(myCollection: IEnumerable);
  end;

{ SamplesQueue }

class procedure SamplesQueue.Main;
var
  myQ: Queue;
begin
  // Creates and initializes a new Queue.
  myQ := Queue.Create;
  myQ.Enqueue('Hello');
  myQ.Enqueue('World');
  myQ.Dequeue;
  myQ.Enqueue('Delphi for .NET');
  myQ.Enqueue('World');
  myQ.Enqueue('!');

  Console.WriteLine('myQ');
  Console.WriteLine(''#9'Count:    {0}', myQ.Count);
  Console.Write(''#9'Values:');

  PrintValues(myQ);
end;

class procedure SamplesQueue.PrintValues
                (myCollection: IEnumerable);
var
  myEnumerator: System.Collections.IEnumerator;
begin
  myEnumerator := myCollection.GetEnumerator;
  while myEnumerator.MoveNext do
  begin
    Console.Write(''#9'{0}', 
                  myEnumerator.Current);
  end;
  Console.WriteLine;
end;

//test program
begin
  SamplesQueue.Main;
end.