Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

как взять рандомную строчку из тхт файла?

12K
04 ноября 2012 года
Daim
22 / / 26.05.2006
Здравствуйте! Подскажите пожалуйста как мне реализовать данный прием?
есть файл 1.txt в нем в каждой строчке есть слова, мне нужно что бы по нажатию горячей клавиши приложение брало рандомную строчку из этого файла и запоминало в буфер обмена? Я нашел код, как брать весь текст из файла и с помощью CopyToClipBoard ложить в буфер обмена, но мне нужна только 1 любая строчка!
247
04 ноября 2012 года
wanja
1.2K / / 03.02.2003
Если тебе что-то говорят слова TextFile и Readln, открой файл, подсчитай сколько строк и Random тебе в руки.
70K
04 ноября 2012 года
ProkletyiPirat
76 / / 25.07.2012
с кулихсом незнаком но на с++ я бы сделал так
1.открываем файл
2.узнаём номер строки
3.считываем до '\n' как прочитали '\n' дальше будет новая строка
4.ну и запихиваем всё это в цикл
85K
05 ноября 2012 года
Yoja
6 / / 05.11.2012
Очень легко

Код:
procedure Ran;
var
 T : TStringList;

begin
T := TStringList.Create;
T.LoadFromFile('c:\NameFile.txt');
 ShowMessage(IntToStr(T.Count-1)); //показать сколько всего строчек

 ShowMessage(T.Text); //вывести весь текст который имеется в файле
 ShowMessage(T.Size); //вывести размер файла

Randomize;
 ShowMessage(T[Random(T.Count-1)]); //вывести случайную строку в диапазоне max=кол-ву строк в файле
//счет строк начинается с 0, нужно проверить будет ли Random выводить когда либо ноль или всегда будет начинать с 1

T.Clear;
T.Free;
end;

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог