Uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, unit1;
Теперь вернемся на первую форму и напишем процедуру по нажатию на кнопку «Далее»…
Следует учесть, что пользователь может и не ответить на вопрос. В нашем случае правильный ответ номер 2 «нет крыльев». Для компонента RadioGroup это строка имеет номер 1 (свойство ItemIndex), так как нумерация начинается с нуля. В переменной i будем накапливать количество правильных ответов.
Таким образом, процедура по нажатию на кнопку «Далее» выглядит следующим образом:
procedure TForm1.BitBtn1Click(Sender: TObject);
Begin
if radiogroup1.ItemIndex= ‑1 then // если не ответили на вопрос
showmessage('Забыли ответить на вопрос!')
else
Begin
if radiogroup1.ItemIndex=1 then i:=i+1;//счетчик правильных ответов увеличили
form1.close;/закрыли первую форму
form2.show;//вызвали форму со следующим вопросом
end;
end;
Обработайте таким образом все остальные вопросы. Не забудьте, что после ответа на последний вопрос, пользователю предоставляется сообщение о набранных баллах.
Определите, сколько в вашем тесте нужно правильных ответов, чтобы получить «5», «4», и т.д.
case i of
0,1,2:Showmessage (‘Вы получили 2’)
3: Showmessage (‘Вы получили 3’)
4: Showmessage (‘Вы получили 4’)
5: Showmessage (‘Вы получили 5’)
end;
