Строка из текстового файла

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

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

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

ReadLn

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

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

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