Усовершенствование программы
Очевидно, что приведенный выше текст программы был бы намного проше и изящней, если бы поля вывода альтернативных ответов и переключатели выбора ответов были бы объединены в массивы. Тогда программа могла бы обращаться к полям и переключателям не по имени, а по индексу.
Delphi позволяет объединить компоненты в массив, однако создаваться такие компоненты должны не во время создания формы приложения, а динамически – во время работы программы.
На рис. 15.7 приведен вид формы усовершенствованного приложения.
Рис. 15.7. Форма приложения Тест, версия 2
На форме отсутствуют поля вывода альтернативных ответов и переключатели выбора правильного ответа. Они будут созданы во время работы программы.
Объявление массива компонентов ничем не отличается от объявления обычного массива – указывается имя массива, диапазон изменения индекса и тип элементов массива. Ниже приведено объявление массивов компонентов формы разрабатываемой программы:
answer: array [1..N_ANSWERS] of TLabel; // альтернативные ответы selector: array[1..N_ANSWERS+1] of TRadioButton; // кнопки выбора ответа
Однако, для того чтобы компонент появился в форме, одного объявления недостаточно. Компонент – это объект Delphi, и его объявление – это только указатель на область памяти, который без наличия объекта ни на что не указывает. Создается компонент применением метода Create к указателю на компонент, в нашем случае – к элементу массива.
Например, инструкции:
answer[1]: = TLabel.Create(self); answer[1].Parent: = Form1;
Создают компонент Label и помещают его в форму.
После создания компонента программа должна выполнить его настройку, т. е. ту работу, которую во время создания формы приложения выполняет программист при помощи Object Inspector. Под настройкой понимается присваивание начальных значений тем свойствам компонента, предопределенные значения которых не отвечают предъявляемым требованиям.