StringList - загрузка/передача ID-ентификатора и строки?

[XerSon]

Всем привет,
Столкнулся с такой головоломкой,

Есть текстовый фаил с таким форматированием:

moscou|Москва
saratov|Саратов

и т д, где:
moscou - ID
| - разделитель
Москва - название

Загружаю в ComboBox так:

var
  sl: TStringList;
...
begin
    sl.LoadFromFile(ExtractFilePath(ParamStr(0)) + '\City\ru.txt');
    sComboBox1.Items.Assign(sl);
end;
sl.Free;
end;

Что мне надо:
При загрузке в ComboBox выводить название, а ID передавать в некую переменную, функцию и т д, для дальнейшей работы именно с ID.

Как мне решить сие?

[Аватар]

В ComboBox строки вводить в цикле построчно и только название. TStringList сделать доступным для всей формы и не удалять после загрузки в ComboBox. В дальнейшем по текущему индексу строки в ComboBox можно найти строку в TStringList и взять из неё идентификатор для использования

[XerSon]

Сообщение от Аватар

В ComboBox строки вводить в цикле построчно и только название.

Вот тут то как раз и вся загвостка!

С остальным все понятно, примерно так и хотел решить.

[Аватар]

for i:=0 to StringList.Count-1 do begin
  s:=StringList.Strings[i];
  j:=Pos('|',s);
  ComboBox.Items.Add(Copy(s,j+1,Length(s)-j));
end;

Это упрощенно без анализа корректности исходных данных

[Serge_Bliznykov]

Вот тут то как раз и вся загвостка!
С остальным все понятно, примерно так и хотел решить.

тоже мне, бином Ньютона....

  sl := TStringList.Create;
  sl.LoadFromFile(ExtractFilePath(ParamStr(0)) + '\City\ru.txt');
  sComboBox1.Items.Clear;
  for i:=0 to sl.Count-1 do 
    p1 := pos('|', sl.Strings[i]);
    {если в строке есть разделитель}
    if p1>0 then 
          sComboBox1.Items.Append(Copy(sl.Strings[i],p1+1, Length(sl.Strings[i])-p1));

Добавлено
блииин, Аватар меня на одну минуту опередил!

[XerSon]

Сообщение от Аватар

Это упрощенно без анализа корректности исходных данных

Все Получилось!

Спасибо Всем!