Вопросик по тесту
Всем здравствуйте и приятного время препровождения!!!Мужики, дело вот такое есть прога-тест в ней 4 формы!а именно 3 формы вопросов и четвертая форма ИТОГО!!Предложите пожалуйста ваши варианты дороботки кода что бы четвертая форма показывала не только номер вопроса(формы) где сделана ошибка,но и саму формулировку вопроса!
Код который нужно доработать
Код:
var
a:array[0..11]of byte;
i:integer;
...
procedure TForm3.Button1Click(Sender: TObject);
begin
label3.Caption:='Ошибки сделаны в вопросах № ';
for i:=0 to KolOshibok-1 do
label3.Caption:=label3.Caption+inttostr(a[i])+', ';
end;
end.
этот код в форме ИТОГО
а вот код на кнопках ответа в формах
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if
radioButton1.Checked
then
Begin
button1.Enabled:=False;
End
else
begin
button1.Enabled:=False;
a[KolOshibok]:=1;// номер формы где сделана ошибка
end;
Этот код ставит только номера форм(вопроса) где сделаны ошибки, резиденты форума взираю к вам!Подскажите пожалуйста вариант кода который будет показывать формулировку вопроса!!
Всем спасибо!
|