Модуль ассоциативных списков для Delphi

    public
      // последний рассчитанный индекс indexOfName
      LastInd:integer;
      // индексы
      indexes: TStringList;
      // значения
      items: TStringList;
      constructor Create; virtual;
      destructor Destroy; override;
      //  удалить
      procedure Delete(const index: string);
      // добавить
      procedure Add(const index, s:String);
      // найти по значению
      function IndexOf(s:String):string;
      // сортировать
      procedure Sort;
      // сортировать по индексам
      procedure SortIndexes;
      // в обратном порядке
      procedure Reverse;
      // номер индекса в списке
      function indexOfName(index:string):integer;
      // загрузить из файла
      procedure LoadFromFile(const FileName:String);
      // сохранить в файл
      procedure SaveToFile(const FileName:String);
      // Очистить
      procedure Clear;
    property
      // Количество
      Count: integer Read RCount;
    property
      // Обращение к элементу списка
      item[index:string]:string read Ritem write Witem; default;
    property
      // Список ввиде текста
      Text:string read RText write Wtext;

var List:TAssocList; s:string;
begin
    // создание списка
    List:=TAssocList.Create;
    
    // вставка в список путем присваивания
    
    List['hello']:='world';
    List['apple']:='green';
    
    // вставка в список через процедуру
    
    List.Add('tree','red');
    
    // показ содержимого списка
    
    ShowMessage(List.Text);
    
    // изменение
    
    List['hello']:='Alex';
    
    // показ содержимого списка
    
    ShowMessage(List.Text);
    
    // поиск
    
    s:=List.indexOf('green');
    ShowMessage(s); // apple
    
    // сохранение списка в файл
 
    List.SaveToFile('C:\1.txt');
    
    List.Free; // освобождение памяти списка
end;