Считать случайную строку из текстового файла

@INstantKiLLer · Регистрация: 11.10.2014

Author24 — интернет-сервис помощи студентам

Нужен код который будет брать случайную строку с текстового файла и присваивать ее строковой переменной

@droider · 25.12.2015, 09:57

Delphi

var
 List:TStringList;
  MyStr:String;
begin
Randomize;
List :=TStringList.Create;//создаем экземпляр TStringList
List.LoadFromFile('имя_файла.txt');//подгружаем файл (файл в папке с программой)
MyStr :=List[Random(List.Count)]; //заносим строку со случайным индексом в переменную
ShowMessage(MyStr); //выводим ее (если необходимо)
List.Free;
end;

@INstantKiLLer 9 / 9 / 3 Регистрация: 11.10.2014 Сообщений: 363
		1
	Считать случайную строку из текстового файла 25.12.2015, 01:30. Показов 1792. Ответов 1 Метки нет (Все метки) Нужен код который будет брать случайную строку с текстового файла и присваивать ее строковой переменной 0

	25.12.2015, 09:57

Считать случайную строку из текстового файла

Решение