Реферат: Разработка тестового приложения Компоненты меню Delphi

TForm1 = class(TForm)

Labels: TLabel; // поле вывода вопроса

Image1: ТImage; // область вывода иллюстрации

Panell: TPanel;

Buttonl: TButton; // кнопка Начать, Дальше, Выход

procedure FormActivate(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure SelectorClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

В отличие от других строк, сгенерированных Delphi, объявление procedure SelectorClick(Sender: TObject) вставлено в текст программы вручную.

При создании процедуры обработки события для обычного компонента (компонента, который добавлен в форму во время разработки формы программы) Delphi автоматически генерирует заготовку процедуры обработки события и ее объявление. Программист должен написать только инструкции процедуры. В случае создания процедуры обработки события для компонента, который создается динамически, программист должен полностью написать текст процедуры и поместить ее объявление в объявление формы.

После того как будет написана процедура обработки события, нужно связать эту процедуру с конкретным компонентом. Делается это путем присвоения имени процедуры обработки свойству, имя которого совпадает с именем обрабатываемого события.

2.4.3. Загрузка файла теста

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

Например, для настройки программы тестирования, значок запуска которой находится на рабочем столе, на работу с файлом теста ххх.txt, необходимо щелкнуть правой кнопкой мыши на значке программы, из появившегося контекстного меню выбрать команду Свойства и в поле Объект, после имени файла программы (Project1.exe), ввести имя файла теста (xxx.txt), заключив его в двойные кавычки (рис. 3). Текст, находящийся в поле Объект вкладки Ярлык диалогового окна Свойства, называется командной строкой.

Программа может получить параметр, указанный в командной строке запуска программы, как значение функции ParamStr (n), где n - номер параметра. Количество параметров командной строки находится в глобальной переменной Paramcount. Для приведенного выше примера командной строки запуска программы тестирования значение переменной Paramcount равно 1, а функции ParamStr (1) - xxx.txt.

Ниже приведен фрагмент программы, обеспечивающий прием параметра из командной строки:

if ParamCount = 0 then

begin

ShowMessage(' Ошибка! Не обнаружено файла вопросов теста. ');

goto bye; // аварийное завершение программы

end;

FileName:= ParamStr (1); // имя файла - параметр командной строки.

При запуске программы, использующей параметры командной строки, из среды разработки параметры нужно ввести в поле Parameters диалогового окна Run Parameters (рис. 4), которое открывается в результате выбора из меню Run команды Parameters.