Написание программы с использованием команд void prepod_see(int n), void admin_see(), void students_see(), void not_see2(bool t), страница 6

Form3->Edit10->Text=""; Form3->RadioButton10->Checked=false;

Form3->Memo3->Clear();

}

int var_otveta_v()

{// 0 если не выбран варианта ответа

if(Form3->RadioButton1->Checked==true&&Form3->RadioButton1->Visible==true){ return 1;}

if(Form3->RadioButton2->Checked==true&&Form3->RadioButton2->Visible==true){return 1;}

if(Form3->RadioButton3->Checked==true&&Form3->RadioButton3->Visible==true){return 1;}

if(Form3->RadioButton4->Checked==true&&Form3->RadioButton4->Visible==true){return 1; }

if(Form3->RadioButton5->Checked==true&&Form3->RadioButton5->Visible==true){return 1; }

if(Form3->RadioButton6->Checked==true&&Form3->RadioButton6->Visible==true){return 1;}

if(Form3->RadioButton7->Checked==true&&Form3->RadioButton7->Visible==true){return 1;}

if(Form3->RadioButton8->Checked==true&&Form3->RadioButton8->Visible==true){return 1;}

if(Form3->RadioButton9->Checked==true&&Form3->RadioButton9->Visible==true){return 1;}

if(Form3->RadioButton10->Checked==true&&Form3->RadioButton10->Visible==true){return 1;}

return 0;

}

int control_add()

{AnsiString s;

 s=add_text_vopros();

 if(AnsiPos('#',s)!=0){ShowMessage("В вопросе нельзя использовать символ  # ");return 0;}

 if(AnsiPos('#',Form3->Edit1->Text)||AnsiPos('#',Form3->Edit2->Text)||AnsiPos('#',Form3->Edit3->Text)){ShowMessage("В вариантах ответа нельзя использовать символ  # ");return 0;}

 if(AnsiPos('#',Form3->Edit4->Text)||AnsiPos('#',Form3->Edit5->Text)||AnsiPos('#',Form3->Edit6->Text)){ShowMessage("В вариантах ответа нельзя использовать символ  # ");return 0;}

 if(AnsiPos('#',Form3->Edit7->Text)||AnsiPos('#',Form3->Edit8->Text)||AnsiPos('#',Form3->Edit9->Text)){ShowMessage("В вариантах ответа нельзя использовать символ  # ");return 0;}

 if(strlen(Form3->Edit1->Text.c_str())>80)ShowMessage("Должно быть не более 80 смволов в варианте ответа(1)");

 if(strlen(Form3->Edit2->Text.c_str())>80)ShowMessage("Должно быть не более 80 смволов в варианте ответа(2)");

 if(strlen(Form3->Edit3->Text.c_str())>80)ShowMessage("Должно быть не более 80 смволов в варианте ответа(3)");

 if(strlen(Form3->Edit4->Text.c_str())>80)ShowMessage("Должно быть не более 80 смволов в варианте ответа(4)");

 if(strlen(Form3->Edit5->Text.c_str())>80)ShowMessage("Должно быть не более 80 смволов в варианте ответа(5)");

 if(strlen(Form3->Edit6->Text.c_str())>80)ShowMessage("Должно быть не более 80 смволов в варианте ответа(6)");

 if(strlen(Form3->Edit7->Text.c_str())>80)ShowMessage("Должно быть не более 80 смволов в варианте ответа(7)");

 if(strlen(Form3->Edit8->Text.c_str())>80)ShowMessage("Должно быть не более 80 смволов в варианте ответа(8)");

 if(strlen(Form3->Edit1->Text.c_str())>80)ShowMessage("Должно быть не более 80 смволов в варианте ответа(9)");

 return 1;

 }

void __fastcall TForm3::Button1Click(TObject *Sender)

{ AnsiString s;

  Form3->Close();//возврат на главную форму

  Form5->Show();

  if(Form3->CheckBox1->Checked!=true){s="@#";

                                      Form3->Memo1->Lines->Strings[end_BD()]=s;

                                      Form3->Memo1->Lines->SaveToFile(road);}

  Form3->Edit23->Text="1";

  add=0;

}

//---------------------------------------------------------------------------

void __fastcall TForm3::Button5Click(TObject *Sender)//кнопка "пред "

{int n,fr=0;

AnsiString text="";

 n=atoi(Form3->Edit23->Text.c_str());

 if(n>=2){Form3->Memo3->Lines->Clear();

          if(Form3->Button2->Visible==true)fr=1;

            for(int i=1;i<=9;i++){v_a_see(text,i,2);}

          not_see3();

          if(fr==1){Form3->Button2->Visible=true;

                    Form3->Button4->Visible=true;}

          Form3->Button5->Visible=true;

          Form3->Button6->Visible=true;

          n--; Form3->Edit23->Text=n ;

          Show_vopros(n,2);}

 else ShowMessage("Это итак самый первый вопрос");

}

//---------------------------------------------------------------------------

void __fastcall TForm3::Button6Click(TObject *Sender)// кнопка "сл"

{int n,fr=0;

AnsiString text="";

 n=atoi(Form3->Edit23->Text.c_str());

 if(n<nomer_poslednego_voprosa()){

           Form3->Memo3->Lines->Clear();

          if(Form3->Button2->Visible==true)fr=1;

           for(int i=1;i<=9;i++){v_a_see(text,i,2);}

          not_see3();

          if(fr==1){Form3->Button2->Visible=true;

                    Form3->Button4->Visible=true;}

          Form3->Button5->Visible=true;

          Form3->Button6->Visible=true;

          n++; Form3->Edit23->Text=n ;

          Show_vopros(n,2);}

 else ShowMessage("Это итак самый послетний вопрос");

}

//---------------------------------------------------------------------------

void __fastcall TForm3::Button3Click(TObject *Sender)

{//добавления нового вопроса

if(control_add()!=0)

   {if(Form3->Memo3->Lines->Strings[0].IsEmpty()==1)ShowMessage("Введите текст вопроса");

    else {if(Form3->Edit1->Text==""||Form3->Edit2->Text=="")ShowMessage("Должно быть миниму 2 варианта. Начиная с первого.");