ComboBox

[nefakt]

Всем привет. Делаю программу которая берет значения из файла с сервера.
в ComboBox добавляется значения так

    s:=TMemoryStream.Create;
  IdHTTP1.Get('http://сайт/Data/1/1.html',s);
  s.Position:=0;
  ComboBox1.Items.LoadFromStream(s);
  s.Free;

а ItemIndex сделан так

 case ComboBox1.ItemIndex of
0: Chromium1.Load('http:сайт');
1: Chromium1.Load('http:сайт');
2: Chromium1.Load('http:сайт');

Так вот хотел бы узнать как можно заполнять ItemIndex тоже из файла,
строки в файлах буду одного количество. В одном файле название, а в другом ссылки. Открываются ссылки через Chromium на форме.
Заранее спасибо.

[FaTaL]

ComboBox1.Items.LoadFromFile не?

[nefakt]

Код читал? Так у меня уже заполняется ComboBox а я про ItemIndex говорю. Второй кусок кода как у меня сейчас ItemIndex сделан а я говорил про то что бы поменять его что бы ItemIndex заполнялся из файла. Т.е вот это

Chromium1.Load('http:сайт');

бралось из фала или сразу с индексом так

0: Chromium1.Load('http:сайт');

.

[ZuBy]

еще раз внятно объясни, ничего не понял

[doktor255]

При старте программы инициализируешь два стринглиста, загружаешь их со своих файлов. В цикле добавляешь в комбо бокс объекты. При OnChange получаешь объект.

var s: string;
begin
s := '456';
ComboBox1.Items.AddObject('123', TObject(s));
ShowMessage(string(ComboBox1.Items.Objects[0])); // ссылка на сайт
ShowMessage(string(ComboBox1.Items[0]); // имя сайта

[nefakt]

Вот так индексы в ComboBox я заполняю в ручную в коде

case ComboBox1.ItemIndex of
0: Chromium1.Load('http:сайт');
1: Chromium1.Load('http:сайт');
2: Chromium1.Load('http:сайт');

А мне надо что бы индексы заполнялись из файла автоматически. Вот что я хочу. Просто когда надо что то добавить приходится открывать исходник и в нем дописывать а так просто в файл дописал а программа сама их из файла добавит.

[doktor255]

Чем мой пример не устраивает?

[nefakt]

Я не дома просто и не пробовал ещё твой пример , может ещё кто-нибудь код даст было бы хорошо. А так я понял твой пример. Спасибо.