fy">} __ fastcall TForm1 :: Button8Click (TObject * Sender)
{
{a1, a2; o1, o2;=Edit9- gt; Text;=Edit22- gt; Text; (o1 == ) {throw (1);} (o2== ) {throw (2);}=StrToInt (Edit9- gt; Text);=StrToInt (Edit22- gt; Text); _ pechi ob1(StringGrid3-gt;Cells[0][a1],StrToInt(StringGrid3-gt;Cells[1][a1]),StrToInt(StringGrid3-gt;Cells[2][a1]),StringGrid3-gt;Cells[3][a1]);microv_pechi ob2(StringGrid3-gt;Cells[0][a2],StrToInt(StringGrid3-gt;Cells[1][a2]),StrToInt(StringGrid3-gt;Cells[2][a2]),StringGrid3-gt;Cells[3][a2]);if (ob1 == ob2) {Edit23- gt; Text= Дорівнюють raquo ;;} else {Edit23- gt; Text= не дорівнює raquo ;;}//порівняння (перевантаження)} (int a)
{MessageDlg ( Заповніть поля для введення raquo ;, mtError, TMsgDlgButtons () lt; lt; mbOK, 0); - gt; Text=clRed; - gt; Text=clRed;} (EConvertError amp; err)
{MessageDlg ( Перевірте введення даних raquo ;, mtError, TMsgDlgButtons () lt; lt; mbOK, 0);}
} __ fastcall TForm1 :: Button9Click (TObject * Sender)
{
{a1, a2; o1, o2;=Edit24- gt; Text;=Edit25- gt; Text; (o1 == ) {throw (1);} (o2== ) {throw(2);}=StrToInt(Edit24-gt;Text);=StrToInt(Edit25-gt;Text);ob1(StringGrid4-gt;Cells[0][a1],StrToInt(StringGrid4-gt;Cells[1][a1]),StrToInt(StringGrid4-gt;Cells[2][a1]),StrToInt(StringGrid4-gt;Cells[3][a1]),StrToInt(StringGrid4-gt;Cells[4][a1]),StrToInt(StringGrid4-gt;Cells[5][a1]));pilesos ob2(StringGrid4-gt;Cells[0][a2],StrToInt(StringGrid4-gt;Cells[1][a2]),StrToInt(StringGrid4-gt;Cells[2][a2]),StrToInt(StringGrid4-gt;Cells[3][a2]),StrToInt(StringGrid4-gt;Cells[4][a1]),StrToInt(StringGrid4-gt;Cells[5][a1]));if (ob1 == ob2) {Edit26- gt; Text= Дорівнюють raquo ;;} else {Edit26- gt; Text= не дорівнює raquo ;;}//порівняння (перевантаження)
} (int a)
{MessageDlg ( Заповніть поля для введення raquo ;, mtError, TMsgDlgButtons () lt; lt; mbOK, 0);
} (EConvertError amp; err)
{MessageDlg ( Перевірте введення даних raquo ;, mtError, TMsgDlgButtons () lt; lt; mbOK, 0);}
} __ fastcall TForm1 :: Edit4KeyPress (TObject * Sender, char amp; Key)
{(((Key lt; 0 ) || (Key gt; 9 )) amp; amp; (Key!=VK_BACK)) Key=NULL;
}
//---------------------------------------------------------------__ fastcall TForm1 :: Edit20KeyPress (TObject * Sender, char amp; Key)
{(((Key lt; 0 ) || (Key gt; 9 )) amp; amp; (Key!=VK_BACK)) Key=NULL;
}
//---------------------------------------------------------------__ fastcall TForm1 :: Edit21KeyPress (TObject * Sender, char amp; Key)
{(((Key lt; 0 ) || (Key gt; 9 )) amp; amp; (Key!=VK_BACK)) Key=NULL;
}
//---------------------------------------------------------------__ fastcall TForm1 :: Edit2KeyPress (TObject * Sender, char amp; Key)
{(((Key lt; 0 ) || (Key gt; 9 )) amp; amp; (Key!=VK_BACK)) Key=NULL;
}
//---------------------------------------------------------------__ fastcall TForm1 :: Edit3KeyPress (TObject * Sender, char amp; Key)
{(((Key lt; 0 ) || (Key gt; 9 )) amp; amp; (Key!=VK_BACK)) Key=NULL;
}
//---------------------------------------------------------------__ fastcall TForm1 :: Edit24KeyPress (TObject * Sender, char amp; Key)
{(((Key lt; 0 ) || (Key gt; 9 )) amp; amp; (Key!=VK_BACK)) Key=NULL;
}
//---------------------------------------------------------------------------__fastcall TForm1 :: Edit25KeyPress (TObject * Sender, char amp; Key)
{(((Key lt; 0 ) || (Key gt; 9 )) amp; amp; (Key!=VK_BACK)) Key=NULL;
}
//---------------------------------------------------------------__ fastcall TForm1 :: Edit12KeyPress (TObject * Sender, char amp; Key)
{(((Key lt; 0 ) || (Key gt; 9 )) amp; amp; (Key!=VK_BACK)) Key=NULL;
}
//---------------------------------------------------------------__ fastcall TForm1 :: Edit6KeyPress (TObject * Sender, char amp; Key)
{(((Key lt; 0 ) || (Key gt; 9 )) amp; amp; (Key!=VK_BACK)) Key=NULL;
}
//---------------------------------------------------------------__ fastcall TForm1 :: Edit18KeyPress (TObject * Sender, char amp; Key)
{(((Ke...
