Форум программистов [Powered by Invision Power Board]

Код

AnsiString s;          //инициализируем строку s
int a1,a2,b1,b2;    //инициализируем целочисленные переменные 
s=Edit1->Text ;     //присваиваем переменной s значение поля Edit1 
for(int c=1;c<=s.Length();c+=2) //цикл просматривает строку s
{
for(int j=0;j<5;j++)
for(int i=0;i<5;i++)//вложенный цикл просматривает двух мерный массив
{
if(AnsiString(s[c])==(sg1->Cells[i][j])) //если не четный элемент строки s встречается в массиве sg1 
{b1=i; a1=j; } //то запоминаем строку и столбец элемента массива sg1 
if (AnsiString(s[c+1])==(sg4->Cells[i][j])) //если четный элемент строки s встречается в массиве sg4
{b2=i; a2=j; } //то запоминаем строку и столбец элемента массива sg4 
}
Edit2->Text=Edit2->Text+sg2->Cells[b2][a1]+sg3->Cells[b1][a2];//к значению поля Edit2 добавляем значение элемента массива sg2
// удовлетворимшим условие и значение элемента массива sg3 удовлетворимшим условие
}
}