Хранение и поиск значения по строковому наименованию

[igh0st]

Как правильно хранить в памяти и использовать значения с привязкой к наименованию? Не обязательно значения могут быть любых типов, пускай хотя бы только строковые. К примеру, требуется хранить список наименований рабочих станций и их IP адресов, можно конечно завести два массива - искать по имени в одном и потом по полученному индексу брать IP в другом, но может быть существует штатная возможность для подобного манипулирования?

[Аватар]

Можно в ini-файле и использовать TIniFile или просто TStringList

Name1=значение
Name2=значение
...

[igh0st]

Можно в принципе и в XML в памяти, или свой класс написать, но может есть что-нибудь проще.

[igh0st]

Или к примеру в TStrings записывать:
Наименование значения + Разделитель + Строковое значение

А потом при поиске перебирать значения, вытаскивать их названия, сверять с поисковым патерном и выдавать значение...

Но это тоже как-то коряво, может все-таки есть что-то штатное.

[Serge_Bliznykov]

А потом при поиске перебирать значения, вытаскивать их названия, сверять с поисковым патерном и выдавать значение...

Вы заблуждаетесь.
При использовании TStringList перебирать значения не придётся - есть методы, скрывающие перебор (причём, даже эффективный, по ключу, если список сортированный) от программиста.
см. методы .Find и .IndexOf

либо, как указал Аватар, если искомые строковые значения как ключи - уникальны (а в вашем случае они именно уникальны), тогда смотрите свойство [Values]

второе поясню примером кода:

procedure TForm1.Button1Click(Sender: TObject);
var
  ts : TStringList;
begin
   ts := TStringList.Create;

   // прочитаем значения из ini файла
   (*
    например, в INI там такие значения:

      DisplayGrid=192.168.1.2
      SnapToGrid=10.68.61.2
      GridSizeX=80.82.1.1.
      GridSizeY=81.124.1.2
      *)
    ts.LoadFromFile('d:\test1.ini');
    
    ShowMessage('для ключа с имененм GridSizeX найденное значение будет '+
           ts.Values['GridSizeX']);

    ShowMessage('для ключа с имененм SnapToGrid найденное значение будет '+
           ts.Values['SnapToGrid']);

    ts.Free;
end;

[igh0st]

Вот спасибо, так спасибо! Помню же было что-то подобное )))

От себя добавлю, что добавление новых уникальных именованных элементов осуществляется простым присвоением значения по индексу:

MyList := TStringList.Create;
try
    MyList.Values['Name']  := 'Vladimir';
    MyList.Values['Family'] := 'Putin';
    ShowMessage('Hello ' + MyList.Values['Name'] + ' ' + MyList.Values['Family'] + '!');
finally
    MyList.Free;
end;

[Slym]

TMemIniFile - удобненько и в файл слить можно

[Serge_Bliznykov]

Slym, TMemIniFile - это надстройка над TStringList...