Обработка данных в StringGrid

  // SG1 и SG2 -> FixedCol и FixedRow = 0;
 
  int mass_OPZ[20];
 
  // Берём содержимое SG2 и записываем в массив
  for(i = 0; i < OPZ_Count; i++) // OPZ_Count - количество элементов массива mass_OPZ (он же SG2)
  mass_OPZ[i] = StrToInt(SG2->Cells[i][0]);  // Записали
 
  int temp = 0;
  float min = 99999; 
 
  for (i = 0; i < Row_Counter-1; i++)   // Ищем кратчайшие расстояния по всем строкам
  {
   for (j = 0; j < OPZ_Count; j++) // работаем с указанным кол-вом столбцов
   {
     temp = mass_OPZ[j] -1; // из mass_OPZ получаем введенный в SG2 номер строки, которую пропускаем,
     // оно же номер столбца. А -1 потому, что нумерация строк/столбц начинается с нуля.
 
     if (i == temp) // Если смотрим строку, которая указана,
     break;   //  то переходим на следующую.
 
     // если нет - продолжаем
     if (StrToFloat(SG1->Cells[temp][i]) < min)
    {  min = StrToFloat(SG1->Cells[temp][i]);
      Memo1->Lines->Add("Для пункта " + IntToStr(i+1) + " минимальное расстояние в пункте " + IntToStr(mass_OPZ[j]) + " равное " + FloatToStr(min) + " км.");
     }
   }
   Memo1->Lines->Add(""); // Разделяющая строка для пунктов
  }

     if (i == temp) // Если смотрим строку, которая указана,
     break;   //  то переходим на следующую.

 
int min_j;
bool wrong(int i)
{
for (int j = 0; j < OPZ_Count; j++) if(i == mass_OPZ[j]-1) return true;
return false;
}
 
for (i = 0; i < Row_Counter-1; i++)   // Ищем кратчайшие расстояния по всем строкам
  {
   if (wrong(i)) // Если смотрим строку, которая указана,
   continue;   //  то переходим на следующую.
   min = 99999; 
   for (j = 0; j < OPZ_Count; j++) // работаем с указанным кол-вом столбцов
   if (StrToFloat(SG1->Cells[i][j]) < min)
     {
     min = StrToFloat(SG1->Cells[i][mass_OPZ[j]-1]);
     min_j = j;
     }
   Memo1->Lines->Add("Для пункта " + IntToStr(i+1) + " минимальное расстояние в пункте " + IntToStr(mass_OPZ[min_j]) + " равное " + FloatToStr(min) + " км.");
    Memo1->Lines->Add(""); // Разделяющая строка для пунктов
  }
   }

int min_j;
bool wrong(int i)
{
for (int j = 0; j < OPZ_Count; j++) if(i == mass_OPZ[j]-1) return true;
return false;
}

void __fastcall TForm1::Button4Click(TObject *Sender)
{ int mass_OPZ[20];
 
  // Ìåíÿåì ðàçìåð ôîðìû
  Form1->Height = 582;
 
  // Î÷èùàåì è ïîêàçûâàåì Memo1
  Memo1->Clear();
  Memo1->Visible = True;
 
  // Áåð¸ì ïåðå÷åíü íàñåë¸ííûõ ïóíêòîâ è çàïèñûâàåì â ìàññèâ
  for(i = 0; i < OPZ_Count; i++)
  mass_OPZ[i] = StrToInt(SG2->Cells[i][0]);  // Çàïèñàëè
 
  int min_j;
  bool wrong(int i)
  {
    for (int j = 0; j < OPZ_Count; j++) if(i == mass_OPZ[j]-1) return true;
    return false;
  }
 
  int temp = 0; float min;
  /*
     temp - çàïèñûâàåì àäðåñ ÿ÷åéêè èç SG2, îò êîòîðîãî èùåì êðàò÷àéøåå ðàññòîÿíèå.
  */
 
  for (i = 0; i < Row_Counter-1; i++)   // Èùåì êðàò÷àéøèå ðàññòîÿíèÿ ïî âñåì ñòðîêàì
  {
    if (wrong(i)) // Åñëè ñìîòðèì ñòðîêó, êîòîðàÿ óêàçàíà,
    continue;   //  òî ïåðåõîäèì íà ñëåäóþùóþ.
    min = 99999;
    for (j = 0; j < OPZ_Count; j++) // ðàáîòàåì ñ óêàçàííûì êîë-âîì ñòîëáöîâ
    if (StrToFloat(SG1->Cells[i][j]) < min)
    {
       min = StrToFloat(SG1->Cells[i][mass_OPZ[j]-1]);
       min_j = j;
    }
    Memo1->Lines->Add("Äëÿ ïóíêòà " + IntToStr(i+1) + " ìèíèìàëüíîå ðàññòîÿíèå â ïóíêòå " + IntToStr(mass_OPZ[min_j]) + " ðàâíîå " + FloatToStr(min) + " êì.");
    Memo1->Lines->Add(""); // Ðàçäåëÿþùàÿ ñòðîêà äëÿ ïóíêòîâ
  }
 
}

bool wrong(int i)
  {
    for (int j = 0; j < OPZ_Count; j++) if(i == mass_OPZ[j]-1) return true;
    return false;
  }
 
void __fastcall TForm1::Button4Click(TObject *Sender)
{ int mass_OPZ[20];
 
  // Меняем размер формы
  Form1->Height = 582;
 
  // Очищаем и показываем Memo1
  Memo1->Clear();
  Memo1->Visible = True;
 
  // Берём перечень населённых пунктов и записываем в массив
  for(i = 0; i < OPZ_Count; i++)
  mass_OPZ[i] = StrToInt(SG2->Cells[i][0]);  // Записали
 
  int min_j;
  
  int temp = 0; float min;
  /*
     temp - записываем адрес ячейки из SG2, от которого ищем кратчайшее расстояние.
  */
 
  for (i = 0; i < Row_Counter-1; i++)   // Ищем кратчайшие расстояния по всем строкам
  {
    if (wrong(i)) // Если смотрим строку, которая указана,
    continue;   //  то переходим на следующую.
    min = 99999;
    for (j = 0; j < OPZ_Count; j++) // работаем с указанным кол-вом столбцов
    if (StrToFloat(SG1->Cells[i][j]) < min)
    {
       min = StrToFloat(SG1->Cells[i][mass_OPZ[j]-1]);
       min_j = j;
    }
    Memo1->Lines->Add("Для пункта " + IntToStr(i+1) + " минимальное расстояние в пункте " + IntToStr(mass_OPZ[min_j]) + " равное " + FloatToStr(min) + " км.");
    Memo1->Lines->Add(""); // Разделяющая строка для пунктов
  }
 
}