Постановка задачи. Составьте программу для шуточной игры
в компании из нескольких человек. Играют по очереди, но с одним ведущим. Программа выдает вопрос, который зачитывает ведущий. После выбора играющим случайного числа программа выдает шуточный ответ для играющего. Вопросы и ответы заранее составляются и хранятся в файлах.
Реализация. Разместите вопросы и ответы в файлы. Пример вопросов приведен на рис. 39.
Рис. 39. Файл с вопросами для теста
В файле 'otvet.txt' приведены любые шуточные ответы.
На форму положите три компонента TListBox и сделайте два невидимыми. С помощью метода LoadFromFile() строк Items скопируйте каждый файл в свой список:
ListBox2.Items.LoadFromFile('vopros.txt');
ListBox3.Items.LoadFromFile('otvet.txt');
В первом списке разместите только номера вопросов. Ведущий выбирает вопрос из списка и зачитывает его вслух. Кроме автора программы, играющие не должны знать вопросы и ответы на них. Отвечающий выбирает случайное число из списка и видит шуточный ответ, который тоже зачитывает вслух. Результат игры показан на рис. 40.
Рис. 40. Проект «Шуточный тест»
Для того чтобы вывести вопрос на форму, используйте один
из компонентов TLabel, TMemo, TEdit или просто выведите на форму.
