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

uses System.Collections;

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

{ SamplesStack }

class procedure SamplesStack.Main;
var
  myStack: Stack;
begin
  // Creates and initializes a new Stack.
  myStack := Stack.Create;
  myStack.Push('Hello');
  myStack.Push('World');
  myStack.Pop;
  myStack.Push('Delphi for .NET');
  myStack.Push('World');

  // Displays the properties and values of the Stack
  Console.WriteLine('myStack');
  Console.WriteLine(''#9'Count:    {0}', myStack.Count);
  Console.Write(''#9'Values:');

  PrintValues(myStack);
end;

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

//test program
begin
  SamplesStack.Main;
end.