|
#16
|
|||
|
|||
Код:
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; теперь вообще не чего не ставит((((( |
#17
|
|||
|
|||
пока еще нет!!!Я не могу с ошибками еще разобраться(((
|
#18
|
|||
|
|||
Я бы переменную "KolOshibok" объявил бы в разделе public у Form13 и обращался бы к ней Form13.KolOshibok. А то что ничего не выводит, так это наверное KolOshibok = 0
APPLICATION.TERMINATOR |
#19
|
|||
|
|||
Хотя нет ставит!!!если много ошибок двойки
|
#20
|
|||
|
|||
Попробуйте сделать как советует Ama, а если не секрет, почему вопрос на каждой отдельной форме?
|
#21
|
|||
|
|||
Блин ребята извините,я тупанула блондинка же как ни как)))))))))Все ставит, все оценки))))спасибо большое ребята!!!!
|
#22
|
|||
|
|||
Ребят,а можете еще кое в каком вопросе помочь??
мне нужно что бы еще и показывало на какой вопрос сделана ошибка!!!за кол-во правильных ответов отвечает переменная KolGood!!Этот же тестик)))))спасибочки))) |
#23
|
||||
|
||||
Код:
//в 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])+', '; jmp $ ; Happy End! The Cake Is A Lie. |
#24
|
|||
|
|||
что то не получается почеркивает строку
Код:
for i:=0 to KolOshibok-1 do [Error] Unit13.pas(50): Missing operator or semicolon |
#25
|
||||
|
||||
Мигает видимо потому-что переменная i не описана, но может вы прикрепите всю программу, что-то мне подсказывает, что вы накрутили с этими переменными и формами по самое немогу.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#26
|
|||
|
|||
форм не то что бы много всего 12!!!а вот переменных уже как минимум 3))))а как нужну i описать??
|
#27
|
||||
|
||||
Код:
var I: Integer; |
#28
|
|||
|
|||
Почему то одни нули ставит через запятую,а прикрепить программку не могу,размер 173 Кв,больше не сжимается(((
Еще если не прописать строчку Код:
procedure TForm1.Button1Click(Sender: TObject); var a:array[0..11]of byte; begin ... ... Почему так???и в чем причина что показывает одни нули???))) |
#29
|
||||
|
||||
массив A надо прописать как и KolOshiblk в 13й форме.
jmp $ ; Happy End! The Cake Is A Lie. |
#30
|
|||
|
|||
Bargest, а можно что бы вместо номера вопроса(формы) показывался сам вопрос???
Например: "Ошибка в вопросе: сколько будет 2*2" |