У меня 12 форм с вопросами в каждой форме:
Код:
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, unit13;
на кнопке ОТВЕТ:
код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if
radioButton3.Checked
then
Begin
label1.Caption:='Верно';
button1.Enabled:=False;
button2.Visible:=true;
inc(KolGood);
End
else
label1.Caption:=' Ошибка';
button1.Enabled:=False;
button2.Visible:=true;
inc(KolOshibok);
13-ая форма результат
код:
var //здесь объявляются переменные
Form13: TForm13;
KolGood : Integer; //переменная, в которую записываются верные ответы.
KolOshibok : Integer; // переменная считающая ошибки
end;
кнопка показать результат:
код:
procedure TForm13.Button2Click(Sender: TObject);
begin
Label1.Caption:='правильных ответов'+IntToStr(KolGood);
case KolOshibok of //KolOshibok - переменная считающая ошибки
1 : Label2.Caption:='Ваша оценка 4';
2 : Label2.Caption:='Ваша оценка 3';
3..20 : Label2.Caption:='Ваша оценка 2'; //от 3-х до 20-ти ошибок - оценка 2
end;
end;
вот,а ставит одни двойки((((((((
|