Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.47 MB
Время: 0.089 c
4-1114077383
lpVoid
2005-04-21 13:56
2005.06.14
Как сохранить ресурс в файл?


1-1116927138
Stef
2005-05-24 13:32
2005.06.14
прочитать ini файл на сайте в интернете


1-1117516990
liver
2005-05-31 09:23
2005.06.14
изображение из ImageList в Image


10-1093705417
Ragazor
2004-08-28 19:03
2005.06.14
Как достать картинку из Excel документа


1-1117537124
Karlson
2005-05-31 14:58
2005.06.14
При добавлении текста в Memo он [текст] переносится по строкам