[Mr_OKU!]

Код:

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]

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

Код:

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 жизни.