ure SelectorClick (Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;
На відміну від інших рядків, згенерованих Delphi, оголошення procedure SelectorClick (Sender: TObject) вставлено в текст програми вручну.
При створенні процедури обробки події для звичайного компонента (компонента, який додано до форму під час розробки форми програми) Delphi автоматично генерує заготівлю процедури обробки події і її оголошення. Програміст повинен написати тільки інструкції процедури. У разі створення процедури обробки події для компонента, який створюється динамічно, програміст повинен повністю написати текст процедури і помістити її оголошення в оголошення форми.
Після того як буде написана процедура обробки події, потрібно зв'язати цю процедуру з конкретним компонентом. Робиться це шляхом присвоєння імені процедури обробки властивості, ім'я якого збігається з ім'ям оброблюваного події. br/>
2.4.3. Завантаження файлу тесту
Передати ім'я файлу тесту програмі тестування можна через параметр командного рядка шляхом налаштування властивостей значка, який зображує програму тестування на робочому столі або в папці.
Наприклад, для налаштування програми тестування, значок запуску якої знаходиться на робочому столі, на роботу з файлом тесту ххх.txt, необхідно натиснути правою кнопкою миші на значку програми, з контекстного меню вибрати команду Властивості і в полі Об'єкт, після імені файлу програми (Project1.exe), ввести ім'я файлу тесту (xxx.txt), уклавши його в подвійні лапки (Рис. 3). Текст, що знаходиться в полі Об'єкт вкладки Ярлик діалогового вікна Властивості, називається командним рядком. p> Програма може отримати параметр, вказаний в командному рядку запуску програми, як значення функції ParamStr (n), де n - номер параметра. Кількість параметрів командного рядка знаходиться в глобальній змінній Paramcount. Для наведеного вище прикладу командного рядка запуску програми тестування значення змінної Paramcount дорівнює 1, а функції ParamStr (1) - xxx.txt.
Нижче наведено фрагмент програми, що забезпечує прийом параметра з командного рядка:
if ParamCount = 0 then
begin
ShowMessage ('Помилка! Не виявлено файлу питань тесту. '); p> goto bye;// аварійне завершення програми
end;
FileName: = ParamStr (1);// ім'я файлу - параметр командного рядка.
При запуску програми, використовує параметри командного рядка, з середовища розробки параметри потрібно ввести в поле Parameters діалогового вікна Run Parameters (Рис. 4), яке відкривається в результаті вибору з меню Run команди Parameters. br/>
В
p>В
Рис 3. Налаштування програми тестування
Рис 4. Діалогове вікно Run Parameters
2.5. Опис інтерфейсу користувача
Після створення форми у вікно ре...