Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
wertyoz0
0 / 0 / 0
Регистрация: 22.07.2015
Сообщений: 15
#1

Рандомно выводить 3 слова из 3 текстовых файлов - Delphi

30.07.2015, 17:47. Просмотров 311. Ответов 5
Метки нет (Все метки)

Подскажите, массивы надо прочитать из трех текстовых файлов.
Три файла, в каждом файле в одной строке одно слово. Слов может быть любое кол-во. При нажатие кнопки рандомно брать по слову из файлов и выводить 3 слова. Написал программку, но она работает когда одинаковое количество слов в файле, а надо чтобы было разное количество слов в файлах
procedure TForm1.Button1Click(Sender: TObject);
var
f,n,b: TstringList;
begin
f := TStringList.Create();
n := TStringList.Create();
b := TStringList.Create();
f.LoadFromFile('text.txt');
n.LoadFromFile('text1.txt');
b.LoadFromFile('text2.txt');
Label1.Caption:= f[random(f.count)]+' '+n[random(n.count)]+' '+b[random(b.count)];
end;
Бывает такое что выводит 2 слова, подскажите что надо доделать или про что надо почитать чтоб сделать эту программку
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.07.2015, 17:47
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Рандомно выводить 3 слова из 3 текстовых файлов (Delphi):

Рандомно выводить из текстового файла строку
В общем-то, задача заключается в том, чтобы рандомно выводить из текстового...

Как рандомно менять слова в файле. Движок по обработке команд в тексте.
приветствую! подскажите пожалуйста как сделать следующее: есть два файла...

Генерация из текстовых файлов
Друзья, слепил вот такой код. Суть кода в том что бы генерировать имя, фамилию...

Редактирование текстовых файлов
Составить программу в Delphi: замены всех точек перед словами, которые...

Обработка текстовых файлов
Создать текстовый файл, содержащий:пять строк. Вывести в другой файл латинские...

Обработка текстовых файлов
Помогите пожалуйста с созданием данной программы,ещё очень плохо разбираюсь в...

5
northener
пофигист широкого профиля
3252 / 2304 / 628
Регистрация: 15.07.2013
Сообщений: 13,599
30.07.2015, 17:56 #2
Цитата Сообщение от wertyoz0 Посмотреть сообщение
Бывает такое что выводит 2 слова
Значит в каком-то из файлов есть пустые строки. А может и не в одном.
0
VladWH
240 / 190 / 94
Регистрация: 01.05.2015
Сообщений: 732
30.07.2015, 18:02 #3
wertyoz0, мне кажется, что все ответы на этот вопрос тебе уже дали здесь
http://www.cyberforum.ru/delphi-beginners/thread1287993-page2.html
0
wertyoz0
0 / 0 / 0
Регистрация: 22.07.2015
Сообщений: 15
30.07.2015, 18:42  [ТС] #4
Вот файл, туплю
0
Вложения
Тип файла: rar 5(1).rar (162.2 Кб, 1 просмотров)
Puporev
Модератор
54147 / 41780 / 28886
Регистрация: 18.05.2008
Сообщений: 98,328
30.07.2015, 19:11 #5
Удалите пустые строки в конце файла text.txt
0
wertyoz0
0 / 0 / 0
Регистрация: 22.07.2015
Сообщений: 15
30.07.2015, 19:53  [ТС] #6
Блинннн спасибо, а я думаю что же не так
0
30.07.2015, 19:53
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.07.2015, 19:53
Привет! Вот еще темы с решениями:

Сравнение текстовых файлов.
Добрый день! Такое вот задание. Даны 2 текстовых файла. Проверить, все ли...

Обработка текстовых файлов.
Помогите, а то я в них вообще запутался.... Добавлено через 1 час 2 минуты...

Создание текстовых файлов
В общем, мне надо создать программу при открытии которой, следует написать 16...

Создание текстовых файлов
Добрый день! Подскажите, есть ли возможность создавать текстовые файлы в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru