Главная страница
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.028 c
1-1117188948
sapsi
2005-05-27 14:15
2005.06.14
архивация текстового файла программно


1-1117365248
Rembo
2005-05-29 15:14
2005.06.14
Печать содержимого TStringgrid


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


14-1116919778
NeyroSpace
2005-05-24 11:29
2005.06.14
Моменты из фильма Terminator 2


3-1115551746
Zahar
2005-05-08 15:29
2005.06.14
Помогите с SQL-запросом.