Работа с файлами

@PeterStrog · Регистрация: 09.04.2018

Имеется файл ".txt", в нем содержится информация. Нужно, что бы из этого файла в edit выводилась рандомная строка из файла. Строка должна быть одна из множества строк и все это должно быть в цикле, когда нажимаешь на кнопку в edit должна меняться снова рандомная строка. Подскажите, как это сделать?

@krapotkin · 26.02.2019, 20:38

Delphi

TForm1=class(TForm)
...
list:TStringList;
end;
 
procedure TForm1.FormCreate(....);
begin
  list:=TStringList.Create;
  list.loadFromFile(FileName);
end;
 
procedure TForm1.Button1Click(....);
begin
  edit1.text := list[ random(list.count) ];
end;

@PeterStrog 0 / 0 / 0 Регистрация: 09.04.2018 Сообщений: 81
		1
	Работа с файлами 26.02.2019, 18:52. Показов 515. Ответов 1 Метки нет (Все метки) Имеется файл ".txt", в нем содержится информация. Нужно, что бы из этого файла в edit выводилась рандомная строка из файла. Строка должна быть одна из множества строк и все это должно быть в цикле, когда нажимаешь на кнопку в edit должна меняться снова рандомная строка. Подскажите, как это сделать? __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы