Скачать: CL | DM;

Строка из текстового файла   Найти похожие ветки 

← →
Denizzz   (2005-05-25 08:21) [0]

Доброго времени суток
Есть txt-файл, в нем допустим построчно написаны афоризмы.
Требуется чтобы программа из этого файла наугад выбрала любую строку и вставила в Label.
Посоветуйте как это сделать.

---

← →
Anatoly Podgoretsky ©   (2005-05-25 08:31) [1]

ReadLn

---

← →
begin...end ©   (2005-05-25 08:33) [2]

Если известно количество строк в файле (пусть оно равно N), то генерируем случайное число K в интервале 0..N-1 с помощью функции Random(N), затем открываем текстовый файл, читаем из него ReadLn(F) K раз, а затем читаем в строку ReadLn(F, S). Полученную строку помещаем в Label. Перед вызовом Random следует вызвать Randomize.

Если количество строк заранее неизвестно, но файл небольшой, то можно прочитать его в TStringList и выбрать элемент списка со случайным индексом в интервале от 0 до StringList.Count - 1.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c