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

uses
  System.Collections;

type
  SamplesArrayList = class
  public
    class procedure Main;
  private
    class procedure PrintValues(myList: IEnumerable);
  end;

{ SamplesArrayList }
class procedure SamplesArrayList.Main;
var
  myAL: ArrayList;
begin
  // Creates and initializes a new ArrayList
  myAL := ArrayList.Create;
  myAL.Add('Hello');
  myAL.Add('Delphi for .Net');
  myAL.Add('World');
  myAL.Add('!');

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

  //Print out ArrayList
  PrintValues(myAL);
end;

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

//test program
begin
  SamplesArrayList.Main;
end.