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

             }

        } else {if(f!=1&&nomer_stroki_next(n_s)>end+6)

             {s1=Form3->Memo1->Lines->Strings[end+6];

              if(s1[1]=='('||s1[1]=='{'){Form3->Memo1->Lines->Delete(end+6);end--;}

             }

          }

//--------------7-----------------

v="";if(Form3->Edit7->Text!=""&&Form3->Edit7->Visible==true&&Form3->RadioButton7->Visible==true)

        {s=Form3->Edit7->Text;

         s=s+'#';

         if(Form3->RadioButton7->Checked==true)v=v+'{';else v=v+'(';

         v=v+'7'; v=v+')';

         s=v+s;

         if(f==1)Form3->Memo1->Lines->Add(s);

         else{s1=Form3->Memo1->Lines->Strings[end+7];

              if(s1[1]=='['||s1[1]=='@'){add_new_var(s,end+7);}

              else if(s1[1]=='('||s1[1]=='{')Form3->Memo1->Lines->Strings[end+7]=s;

              }

        }

     else {if(f!=1&&nomer_stroki_next(n_s)>end+7)

             {s1=Form3->Memo1->Lines->Strings[end+7];

              if(s1[1]=='('||s1[1]=='{'){Form3->Memo1->Lines->Delete(end+7);end--;}

             }

          }

//------------8------------------

v="";if(Form3->Edit8->Text!=""&&Form3->Edit8->Visible==true&&Form3->RadioButton8->Visible==true)

        {s=Form3->Edit8->Text;

         s=s+'#';

         if(Form3->RadioButton8->Checked==true)v=v+'{';else v=v+'(';

         v=v+'8'; v=v+')';

         s=v+s;

         if(f==1)Form3->Memo1->Lines->Add(s);

         else{s1=Form3->Memo1->Lines->Strings[end+8];

              if(s1[1]=='['||s1[1]=='@'){add_new_var(s,end+8);}

              else if(s1[1]=='('||s1[1]=='{')Form3->Memo1->Lines->Strings[end+8]=s;

             }

        }

     else {if(f!=1&&nomer_stroki_next(n_s)>end+8)

             {s1=Form3->Memo1->Lines->Strings[end+8];

              if(s1[1]=='('||s1[1]=='{'){Form3->Memo1->Lines->Delete(end+8);end--;}

             }

          }

//-------------9------------------

v="";if(Form3->Edit9->Text!=""&&Form3->Edit9->Visible==true&&Form3->RadioButton9->Visible==true)

        {s=Form3->Edit9->Text;

         s=s+'#';

         if(Form3->RadioButton9->Checked==true)v=v+'{';else v=v+'(';

         v=v+'9'; v=v+')';

         s=v+s;

         if(f==1)Form3->Memo1->Lines->Add(s);

         else{s1=Form3->Memo1->Lines->Strings[end+9];

             if(s1[1]=='['||s1[1]=='@'){add_new_var(s,end+9);}

             else if(s1[1]=='('||s1[1]=='{')Form3->Memo1->Lines->Strings[end+9]=s;

             }

        }

     else {if(f!=1&&nomer_stroki_next(n_s)>end+9)

             {s1=Form3->Memo1->Lines->Strings[end+9];

              if(s1[1]=='('||s1[1]=='{'){Form3->Memo1->Lines->Delete(end+9);end--;}

             }

          }

 if(f==1){s='@' ;s1=Form3->Edit11->Text;

          s=s+s1+'#';Form3->Memo1->Lines->Add(s);}}

void del_(int n_v)

{AnsiString s='\0',p_n="",vopros="",nn_v,p,v;

 int j=1,i,f=0;

 for(i=0;i<end_BD()&&s[1]!='@';i++)

    {s=Form3->Memo1->Lines->Strings[i].c_str();

     j=1;p_n="";p="";v="";vopros="";

     if(s[j]=='['){while(s[j+1]!=']')

                        {p_n=p_n+s[j+1];

                         j++;

                        }

                   if(f==0){if(atoi(p_n.c_str())==n_v)

                              {Form3->Memo1->Lines->Delete(i);

                               s=Form3->Memo1->Lines->Strings[i].c_str();

                               while(s[1]!='['&&s[1]!='@')

                                    {Form3->Memo1->Lines->Delete(i);

                                     s=Form3->Memo1->Lines->Strings[i].c_str();

                                     if(s[1]=='@')return;

                                    }

                                     for(int k=j+2;s[k]!='#'&&k<100;k++)

                                         {vopros=vopros+s[k];}

                                     p=vopros;

                                     p=p+'#'; v=v+'['; v=v+n_v; v=v+']';

                                     p=v+p;

                                     Form3->Memo1->Lines->Strings[i]=p;

                                     f=1;

                              }

                           }

                   else {for(int k=j+2;s[k]!='#'&&k<100;k++)

                             {vopros=vopros+s[k];}

                         n_v++;

                         p=vopros;

                         p=p+'#'; v=v+'['; v=v+n_v; v=v+']';

                         p=v+p;

                         Form3->Memo1->Lines->Strings[i]=p;

                        }

                  }

   }

}

void sbros()

{Form3->Edit1->Text="";Form3->RadioButton1->Checked=false;

Form3->Edit2->Text=""; Form3->RadioButton2->Checked=false;

Form3->Edit3->Text="";  Form3->RadioButton3->Checked=false;

Form3->Edit4->Text=""; Form3->RadioButton4->Checked=false;

Form3->Edit5->Text=""; Form3->RadioButton5->Checked=false;

Form3->Edit6->Text=""; Form3->RadioButton6->Checked=false;

Form3->Edit7->Text=""; Form3->RadioButton7->Checked=false;

Form3->Edit8->Text=""; Form3->RadioButton8->Checked=false;

Form3->Edit9->Text=""; Form3->RadioButton9->Checked=false;