[devochka]

Код:

procedure TForm13.Button1Click(Sender: TObject);
begin
 if
        radioButton1.Checked

then
     Begin
        label1.Caption:='Верно';
        button1.Enabled:=False;
         button2.Visible:=true;
        inc(KolGood);  //переменная из Юнита

End

else
         begin
         label1.Caption:=' Ошибка';
           button1.Enabled:=False;
            button2.Visible:=true;
            inc(KolOshibok);
        end;
end;

Admin: Пользуемся тегами для оформления кода! При рецедиве последуют санкции.

теперь вообще не чего не ставит(((((

[devochka]

пока еще нет!!!Я не могу с ошибками еще разобраться(((

[Ama]

Я бы переменную "KolOshibok" объявил бы в разделе public у Form13 и обращался бы к ней Form13.KolOshibok. А то что ничего не выводит, так это наверное KolOshibok = 0

[devochka]

Хотя нет ставит!!!если много ошибок двойки

[ChinYan]

Попробуйте сделать как советует Ama, а если не секрет, почему вопрос на каждой отдельной форме?

[devochka]

Блин ребята извините,я тупанула блондинка же как ни как)))))))))Все ставит, все оценки))))спасибо большое ребята!!!!

[devochka]

Ребят,а можете еще кое в каком вопросе помочь??
мне нужно что бы еще и показывало на какой вопрос сделана ошибка!!!за кол-во правильных ответов отвечает переменная KolGood!!Этот же тестик)))))спасибочки)))

[Bargest]

Код:

//в 13й форме
var a:array[0..11]of byte;
//в остальных Там где увеличивается KolOshibok
...
begin
  label1.Caption:=' Ошибка';
  button1.Enabled:=False;
  button2.Visible:=true;
  a[KolOshibok]:=N; // Сюда в каждой форме подставить номер этой формы
  inc(KolOshibok);
end;
...

потом можно из этого массива узнать, в каких формах были ошибки:

Код:

label1.text:='';
 for i:=0 to KolOshibok-1 do
  label1.text:=label1.text+inttostr(a[i])+', ';

выведет в Label1 все номера вопросов, где были ошибки через запятую

[devochka]

что то не получается почеркивает строку

Код:

for i:=0 to KolOshibok-1 do

курсор мигает после for и пишет
[Error] Unit13.pas(50): Missing operator or semicolon

[Страдалецъ]

Мигает видимо потому-что переменная i не описана, но может вы прикрепите всю программу, что-то мне подсказывает, что вы накрутили с этими переменными и формами по самое немогу.

[devochka]

форм не то что бы много всего 12!!!а вот переменных уже как минимум 3))))а как нужну i описать??

[ryderx34]

Код:

var
  I: Integer;

[devochka]

Почему то одни нули ставит через запятую,а прикрепить программку не могу,размер 173 Кв,больше не сжимается(((
Еще если не прописать строчку

Код:

procedure TForm1.Button1Click(Sender: TObject);
 var a:array[0..11]of byte;
begin
...
...

на каждой кнопке "ответа" то программа не работает!!!
Почему так???и в чем причина что показывает одни нули???)))

[Bargest]

массив A надо прописать как и KolOshiblk в 13й форме.

[devochka]

Bargest, а можно что бы вместо номера вопроса(формы) показывался сам вопрос???
Например: "Ошибка в вопросе: сколько будет 2*2"