Створення тесту в delphi

Варіанти відповідей (список) створюємо в властивості Items (RadioGroupпрі цьому виділений)

Тест складається, наприклад, з 5 форм. На кожній формі розташовані питання, варіанти відповідей, кнопка (New-Formоткритіе нової форми, Shift + F12 переміщення між формами).

Процедура пишеться на кнопку Далі. У всій роботі буде одна переменнаяi: integer; вона глобальна. Описуємо її в місці, де:

i: integer; вписуємо самі

Опис глобальної змінної відбувається тільки в Unit1. Розробник тесту повинен знати правильну відповідь, тому що це вказується в програмі.

Процедура на кнопку Далі:

If RadioGroup1.Itemindex = -1 then ShowMessage ( 'Забули відповісти на питання!')

Begin if RadioGroup1.Itemindex = 2 then i: = i + 1;

Відкриваємо нову форму (New-Form) оформляємо питання - відповіді, кнопкаДалее:

If RadioGroup1.Itemindex = -1 then ShowMessage ( 'Забули відповісти на питання!')

Beginif RadioGroup1.Itemindex = 1 then i: = i + 1;

Починаючи з другого модуля (Unit2), додаємо слово Unit1 в те місце, де йде перерахування: Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Аналогічну роботу проробляємо з формою 3 та 4.

На формі 5 маємо питання, варіанти відповідей, кнопку Готово і пишемо процедуру на цю кнопку

If RadioGroup1.Itemindex = -1 then ShowMessage ( 'Забули відповісти на питання!')

Begin if RadioGroup1.Itemindex = 3 then i: = i + 1;

0,1,2: ShowMessage ( 'Ви отримали 2');

3: ShowMessage ( 'Ви отримали 3');

4: ShowMessage ( 'Ви отримали 4');

5: ShowMessage ( 'Ви отримали 5');

Створили тест, робимо перший раз запуск програми, з'явиться вікно, де потрібно вибирати YES, вікно буде з'являтися стільки раз, скільки було форм, це встановлюються зв'язки.

Першу форму можна використовувати для відображення загальної інформації про тест, наприклад: