@olol

void __fastcall TForm5::Button4Click(TObject *Sender)
{
int min,i,kfor,n;
file f1;
char *s;
f1=fopen("Temp","wt");
n=Memo1->Lines->Count-1;
for (i=0;i< n;i++)
{
s=Memo1->Lines->Strings[i].c_str;
{
min=strlen(s)+1;
kfor=posstr(s,';');
if ((kfor>-1) && (min>kfor))
min=kfor;
kfor=posstr(s,'{');
if ((kfor>-1) && (min>kfor))
min=kfor;
kfor=posstr(s,'}');
if ((kfor>-1) && (min>kfor))
min=kfor;
kfor=posstr(s,')');
if ((kfor>-1) && (min>kfor))
min=kfor;
if (min==strlen(s)+1)
fprintf(f1,"%s",s);
else
{
fprintf(f1,"%s\n",copystr(s,1,min));
s=copystr(s,min+1,strlen(s)-min);
}
}
while (min!=strlen(s)+1);
}
fclose(f1);
Memo->Lines->LoadFromFile("temp.txt");
Memo1->Lines->SaveToFile("temp.txt");

}
//---------------------------------------------------------------------------

void __fastcall TForm5::Button5Click(TObject *Sender)
{ char *kn,*kb,*per,*s,*s2;
file f1,f2;
int min,i,kfor,keq,kto,kdo,n;
f1=fopen("Temp","rt");
f2=fopen(fn2,"wt");
n=Memo1->Lines->Count-1;
for (i=0;i< n;i++)
{
s=Memo1->Lines->Strings[i].c_str;
/*Определяем положение for*/
kfor=strstr(s,"for")-s;
if (kfor>-1)
{
/*Определяем положение :=*/
keq=strstr(s,":=")-s;
if ((keq>-1) && (keq>kfor+1))
{
/*Определяем положение to*/
kto=strstr(s,"to")-s;
if ((kto>-1) && (kto>keq+1))
{
/*Определяем положение do*/
kdo=strstr(s,"do")-s;
if ((kdo>-1) && (kdo>kto+1))
{
fl=1;
/*Выделяем переменную цикла*/
per=copystr(s,kfor+4,keq-kfor-4);
/*Выделяем начальное значение*/
kn=copystr(s,keq+2,kto-keq-3);
/*Выделяем конечное значение*/
kb=copystr(s,kto+3,kdo-kto-4);
/*Формируем while*/
fprintf(f2,"%s:=%s-1;\n",per,kn);
fprintf(f2,"while %s<%s do\n",per,kb);
fscanf(f1,"%s",s2);
/*Если у while есть {*/
if (strstr(s2,"begin")-s2>-1)
{
fprintf(f2,"%s",s2);
fprintf(f2,"%s:=%s+1;\n",per,per);
}
else
{
fprintf(f2,"begin\n");
fprintf(f2,"%s:=%s+1;\n",per,per);
fprintf(f2,"%s",s2);
fprintf(f2,"end;\n");
}
}
}
}
}
}
fclose(f2);
fclose(f1);
}

0