1) Процедура — обработчик события нажатия на кнопку «Начать тест"(Button1):
procedure TForm2. Button1Click (Sender: TObject);
begin.
Count:=0;
Timer1.Enabled:=True;
Label10.Visible:=True;
TimeLabel.Visible:=True;
BitBtn1.Visible := true;
Panel3.Visible := true;
Button1.Visible := false;
Label9.Visible:=True;
BitBtn1.OnClick (self);
end;
Во время выполнения этой процедуры происходит показ всех нужных для правильной работы программы компонентов, запуск таймера, а также скрытие самой кнопки «Начать тест».
2) процедура — обработчик события нажатия на кнопку «Ответить"(Button):
procedure TForm2. BitBtn1Click (Sender: TObject);
var.
Answer, CA: Integer;
begin.
Answer := Ini. ReadInteger ('Вопрос №' + inttostr (QuestNum), 'Правильный вариант', -1);
if Answer < 0 then Exception. Create ('В файле с вопросами не написан правильный вариант');
ca := 0;
if RadioButton1. Checked then.
Ca := 1;
if RadioButton2. Checked then.
Ca := 2;
if RadioButton3. Checked then.
Ca := 3;
if RadioButton4. Checked then.
Ca := 4;
if Ca = Answer then.
inc (Scores).
else.
inc (Wrong);
inc (QuestNum);
Label6.Caption := 'Номер вопроса: ' + IntToStr (QuestNum);
Label8.Caption := 'Правильных ответов: ' + IntToStr (Scores);
Label7.Caption := 'Неправильных ответов: ' + IntToStr (Wrong);
ShowQuestion;
end;
Читаем Правильный ответ из рабочего ini файла программы:
Answer := Ini. ReadInteger ('Вопрос №' + inttostr (QuestNum), 'Правильный вариант', -1);
Собственно определяем правильный ответ или нет.
if Ca = Answer then.
inc (Scores).
else.
inc (Wrong);
Оператор Inc увеличивает значение указанной переменной на 1. Если да то +1 к правильным если нет, то +1 к неправильным.
