Показать сообщение отдельно
  #2  
Старый 02.09.2017, 11:24
Shaft Shaft вне форума
Новичок
 
Регистрация: 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;
Ответить с цитированием