__fastcall TForm2::Button2Click(TObject *Sender)//функция проверки текста
{c[15000];//строкаcc[15000];(cc,"");ccc[10];(c,Memo1->Text.c_str());//коприуем текст из поля в строку poz1=function1(c);//вызываем 1 проверку
RichEdit1->Clear();(poz1!=-1)//если poz1 не равно -1
{
char ccc[10];
strcpy(cc,"Недопустимые идущие подряд операторы! Позиция ");//добавляем в строку ошибку
strcat(cc,itoa(poz1+1,ccc,10));
strcat(cc,"\n");
}
int poz2=function2(c);//если poz2 не равно -1
if(poz2!=-1)
{(cc,"Обнаружен switch без break! Позиция ");//добавляем в строку ошибку
strcat(cc,itoa(poz2+1,ccc,10));
strcat(cc,"\n");
}
int poz3=function3(c);//если poz3 не равно -1
if(poz3!=-1)
{
strcat(cc,"Обнаружено 3 подряд идущих оператора! Позиция ");//добавляем в строку ошибку
strcat(cc,itoa(poz3+1,ccc,10));
strcat(cc,"\n");
}
int poz4=function4(c);//если poz4 не равно -1
if(poz4!=-1)
{
strcat(cc,"Отсутствует скобка ( после for! Позиция ");//добавляем в строку ошибку
strcat(cc,itoa(poz4+1,ccc,10));
strcat(cc,"\n");
}
int poz5=function5(c);//если poz5 не равно -1
if(poz5!=-1)
{
strcat(cc,"Отсутствует if перед else! Позиция ");//добавляем в строку ошибку
strcat(cc,itoa(poz5+1,ccc,10));
strcat(cc,"\n");
}
RichEdit1->Text=cc;//выводим ошибку в поле вывода
}
//---------------------------------------------------------------------------