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

uses
  System.Collections;

type
  SamplesHashtable = class
  public
    class procedure Main;
  private
    class procedure PrintKeysAndValues(myList: Hashtable);
  end;

{ SamplesHashtable }

class procedure SamplesHashtable.Main;
var
  myHT: Hashtable;
begin
  // Creates and initializes a new Hashtable
  myHT := Hashtable.Create;
  myHT.Add('First', 'Hello');
  myHT.Add('Second', 'World');
  myHT.Add('Third', '!');

  // Displays the properties and values of the Hashtable
  Console.WriteLine('myHT');
  Console.WriteLine('  Count:    {0}', myHT.Count);
  Console.WriteLine('  Keys and Values:');
  
  PrintKeysAndValues(myHT);
end;

class procedure SamplesHashtable.PrintKeysAndValues
                (myList: Hashtable);
var
  myEnumerator: IDictionaryEnumerator;
begin
  myEnumerator := myList.GetEnumerator;
  Console.WriteLine(''#9'-KEY-'#9'-VALUE-');
  while myEnumerator.MoveNext do
  begin
    Console.WriteLine(''#9'{0}:'#9'{1}', 
                      myEnumerator.Key, 
                      myEnumerator.Value);
  end;
  Console.WriteLine;
end;

//test program
begin
  SamplesHashtable.Main;
end.