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

uses
  System.Collections;

type
 SamplesSortedList = class
 public
  class procedure Main;
 private
  class procedure PrintKeysAndValues(myList: SortedList);
 end;

{ SamplesSortedList }

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

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

class procedure SamplesSortedList.PrintKeysAndValues
                (myList: SortedList);
var
  idx: Integer;
begin
  Console.WriteLine(''#9'-KEY-'#9'-VALUE-');
  idx := 0;
  while (idx < myList.Count) do
  begin
    Console.WriteLine(''#9'{0}:'#9'{1}', 
                      myList.GetKey(idx), 
                      myList.GetByIndex(idx));
    idx := idx + 1;
  end;
  Console.WriteLine;
end;

//test program
begin
  SamplesSortedList.Main;
end.