Cells [4] [f])> StrToInt (StringGrid1-> Cells [4] [f +1]))
{
}
{= StrToInt (StringGrid1-> Cells [4] [f +1]);
}
} (int f=strok; f>=1; f -)
{(e [f]. Kon == N - 1)
{->Cells[6][f]=max;->Cells[5][f]=StrToInt(StringGrid1->Cells[6][f])-StrToInt(StringGrid1->Cells[2][f]);
}
{(int i=f +1; i <= strok; i + +)
if (e [f]. Kon == e [i]. Nach)
{(StringGrid1, e [f]. Kon);
StringGrid1->Cells[6][f]=m[e[f].Kon].mm;->Cells[5][f]=StrToInt(StringGrid1->Cells[6][f])-StrToInt(StringGrid1->Cells[2][f]);break;
}
}
} (int f=1; f
{->Cells[7][f]=StrToInt(StringGrid1->Cells[5][f])-StrToInt(StringGrid1->Cells[3][f]);
} (int f=strok; f>=1; f -)
{(e [f]. Kon == N - 1)
{->Cells[8][f]=StrToInt(StringGrid1->Cells[6][f])-StrToInt(StringGrid1->Cells[4][f]);
}
{(int i=f +1; i <= strok; i + +) (e [f]. Kon == e [i]. Nach)
{->Cells[8][f]=StrToInt(StringGrid1->Cells[3][i])-StrToInt(StringGrid1->Cells[4][f]);break;
}
}
} (int f=1; f <= strok; f++)((StrToInt(StringGrid1->Cells[7][f])==0)&&(StrToInt(StringGrid1->Cells[7][f])==0))->Cells[9][f]=«*»;(int f=1; f <= strok; f++)((StringGrid1->Cells[9][f]==«*»)&&(Label2->Caption==«»))
{->Caption=FloatToStr(e[f].Nach)+«-»+FloatToStr(e[f].Kon);->Canvas->Pen->Color=clBlue;(Image1->Canvas,p[e[f].Kon].X,p[e[f].Kon].Y,p[e[f].Nach].X,p[e[f].Nach].Y,10);
}
{((StringGrid1->Cells[9][f]==«*»)&&(Label2->Caption!=«»))
{->Caption=Label2->Caption+«-»+FloatToStr(e[f].Kon);(Image1->Canvas,p[e[f].Kon].X,p[e[f].Kon].Y,p[e[f].Nach].X,p[e[f].Nach].Y,10);
}
} -> Caption=max; -> Enabled=false;
}
//---------------------------------------------------------------------------y=0;__fastcall TForm1 :: Image1MouseDown (TObject * Sender, Button, TShiftState Shift, int X, int Y)
{(N == NULL)
{(«Відкрийте фаїл»); return;
}
if (y == N)
{
ShowMessage («Ви перевищити кількість точок»); return;
} (Button == mbLeft)
{[y]. X=X; [y]. Y=Y; -> Canvas-> Ellipse (p [y]. X - 10, p [y]. Y - 10,p[y].X+10,p[y].Y+10);->Canvas->Font->Color=clRed;->Canvas->Font->Size=10;tFontStyle;->Canvas->Font-&g...
