[ApplicatiOn]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TForm1.FormCreate(Sender: TObject); var f: textfile; tmp : string; i: integer;   begin AssignFile(f, 'file.ttt'); Reset(f); for i:= 0 to combobox1.Items.Count - 1 do begin readln(f, tmp); combobox1.Items[i] := tmp; end; closefile(f); end;

мне нужно выгрузить строки из файла в combo box..

В файле содержатся строки (100%), но при запуске программы, они не выгружаются в комбо бокс, а просто удаляются из текстового файла..

подскажите, в чем моя неправда в коде?

делал даже так:

combobox1.Items.Add(tmp);

всеравно не хочет...

[ApplicatiOn]

Проблему решил)))

кому надо, заменяем цикл на while not Eof(f) do

[:S.p.a.m.]

ну ты даеш!

А так не проще?

Код:

1	ComboBox1.Items.LoadFromFile('C:\1.txt');

[ApplicatiOn]

спасибо