[ApplicatiOn]

Код:

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.]

ну ты даеш!

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

Код:

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

[ApplicatiOn]

спасибо