Показать сообщение отдельно
Старый 23.11.2010, 20:34   #463
 
Статус: Гость
Сообщений: n/a
По умолчанию Вопросик по тесту

Всем здравствуйте и приятного время препровождения!!!Мужики, дело вот такое есть прога-тест в ней 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;
Этот код ставит только номера форм(вопроса) где сделаны ошибки, резиденты форума взираю к вам!Подскажите пожалуйста вариант кода который будет показывать формулировку вопроса!!
Всем спасибо!
  ЦИТИРОВАТЬ