|
#1
|
|||
|
|||
Строки ComboBox
Код:
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); всеравно не хочет... |
#2
|
|||
|
|||
Проблему решил)))
кому надо, заменяем цикл на while not Eof(f) do |
#3
|
||||
|
||||
ну ты даеш!
А так не проще? Код:
ComboBox1.Items.LoadFromFile('C:\1.txt'); |
#4
|
|||
|
|||
спасибо
|