[Mr_OKU!]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

s:=radiogroup1.Items.Strings[radiogroup1.ItemIndex];    if s=vse_voprosy[nomer].otvet then      begin    //n 201       messagedlg('Ответ правильный',mtconfirmation,[mbok],0);       otvety_na_voprosy[tek_vopros]:=true;       tek_vopros:=tek_vopros+1;         otvet.SetFocus;       if tek_vopros=voprosov_v_teste+1 then   begin  //n 202    messagedlg('Вы закончили тест по предмету ОС ваша оценка '+inttostr(form1.resultat),mtconfirmation,[mbok],0);    student.resultat:=inttostr(form1.resultat);    form1.zapis_v_data_base;    image1.Destroy;    close;   end;  //k 202   form1.vivod_voprosa;       exit;      end;   // k 201 //  end;    // k 200  if not(otvety_na_voprosy[tek_vopros]) then   begin   //n 203    messagedlg('Ответ неправильный',mtconfirmation,[mbok],0);    otvety_na_voprosy[tek_vopros]:=false;    tek_vopros:=tek_vopros+1;      if tek_vopros=voprosov_v_teste+1 then   begin    //n 204    messagedlg('Вы закончили тест по предмету ОС ваша оценка '+inttostr(form1.resultat),mtconfirmation,[mbok],0);     student.resultat:=inttostr(form1.resultat);     form1.zapis_v_data_base;     close;   end;     // k 204   form1.vivod_voprosa;   end;

MAD: Пользуемся тегами для оформления кода!

Тут после завершении тестирования программа завершает работу. А как сделать что бы программа не завершала работу а просто закрывался файл с вопросами?

[NumLock]

убрать Close

[M.A.D.M.A.N.]

Вогнать в бесконечный цикл "while true do"

[Mr_OKU!]

Я попробовал этот вариант но выдает ощибку

[AlexandrV]

Если я правильно понял

Код:

1 2 3 4 5 6 7 8 9

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); var  temp:Word; begin   temp:=MessageBox(handle, PChar('Вы уверены что хотите выйти'), PChar('Выход'), MB_YESNO+MB_ICONQUESTION);   case temp of     idNo:CanClose:=False;   end; end;

Кажется так если не ошибся.

[Bargest]

Похоже кто-то принципиально не оформляет код... И очень любит некропостить...

[M.A.D.M.A.N.]

Написал ему замечание. Осталось 2 жизни.