Случайный выбор из списка
Цель работы - создать программу, выполняющую следующие действия:
1. После запуска программы в окне изображается три поля.
 |
2. По щелчку мышью на кнопке «Случайный выбор» из трех слов составляется предложение случайным образом.
 |
3. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.
Описание плана разработки программы
1. Открыть новый проект.
2. Разместить на форме экземпляры компонентов: поле со списком ComboBox, командная кнопка Button.
3. Выполнить следующие действия:
Таблица 8.
| Выделенный объект | Вкладка окна
Object Inspector |
Имя свойства/
имя события |
Действие |
| Form1 | Properties | Caption | Установка имени формы «Сочинитель» |
| Events | OnCreate | ComboBox1.ItemIndex :=0;
ComboBox2.ItemIndex :=0; ComboBox3.ItemIndex :=0; |
|
| ComboBox1
(Вкладка Standard) |
Properties | Style | Выберите значение cSDropDownList из раскрывающегося списка |
| Items | Щелкните на кнопке построителя. Откроется окно String List Editor (Редактор списка строк). Ввести пункты списка по одному в каждую строчку, завершая ввод нажатием клавиши Enter. После того как список готов, щелкнуть на кнопке OK. |
| Продолжение таблицы 8. | |||
| Выделенный объект | Вкладка окна
Object Inspector |
Имя свойства/
имя события |
Действие |
| ComboBox2
(Вкладка Standard) |
Properties | Style | Выберите значение cSDropDownList из раскрывающегося списка |
| Items | Щелкните на кнопке построителя. Откроется окно String List Editor (Редактор списка строк). Ввести пункты списка по одному в каждую строчку, завершая ввод нажатием клавиши Enter. После того как список готов, щелкнуть на кнопке OK. | ||
| ComboBox3
(Вкладка Standard) |
Properties | Style | Выберите значение cSDropDownList из раскрывающегося списка |
| Items | Щелкните на кнопке построителя. Откроется окно String List Editor (Редактор списка строк). Ввести пункты списка по одному в каждую строчку, завершая ввод нажатием клавиши Enter. После того как список готов, щелкнуть на кнопке OK. | ||
| Button1
(Вкладка Standard) |
Properties | Caption | Установка имени кнопки «Случайный выбор» |
| Events | OnClick | ComboBox1.ItemIndex :=
Random(ComboBox1.ItemIndex.Count); ComboBox2.ItemIndex := Random(ComboBox2.ItemIndex.Count); ComboBox3.ItemIndex := Random(ComboBox3.ItemIndex.Count); |
4. Сохраните проект, запустите и протестируйте его.
Таблица 9.
| Список существительных | Список наречий | Список действий |
| Кошка | Быстро | Плавает |
| Змея | Высоко | Бегает |
| Кузнечик | Медленно | Летает |
| Дельфин | Сильно | Ползает |
| Черепаха | Хорошо | Прыгает |
| Ласточка | Плохо | Прячется |
Листинг подпрограммы
procedure TForm1.FormCreate (Sender: TObject);
begin
Randomize;
ComboBox1.ItemIndex :=0;
ComboBox2.ItemIndex :=0;
ComboBox3.ItemIndex :=0;
end;
procedure TForm1.Button1Click (Sender: TObject);
begin
ComboBox1.ItemIndex := Random(ComboBox1.ItemIndex.Count);
ComboBox2.ItemIndex := Random(ComboBox2.ItemIndex.Count);
ComboBox3.ItemIndex := Random(ComboBox3.ItemIndex.Count);
end;
