
02.09.2017, 11:24
|
Новичок
|
|
Регистрация: 15.05.2013
Сообщения: 74
Версия Delphi: 7/10.4
Репутация: 12
|
|
Код:
procedure TForm1.FormCreate(Sender: TObject);
var
sl:TStringList;
begin
sl:=TStringList.Create;
sl.LoadFromFile('List.txt');
ListBox.Items.Add(sl[0]);
ListBox.Items.Add(sl[1]);
ListBox.Items.Add(sl[4]);
sl.Free;
end;
|