Текущий архив: 2005.06.14;
Скачать: 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 вся ветка
Текущий архив: 2005.06.14;
Скачать: CL | DM;
Память: 0.44 MB
Время: 0.041 c
