mp; (Edit2- gt; Text == ) amp; amp; (Edit3- gt; Text == )
amp;amp;(Edit4-gt;Text==laquo;raquo;)amp;amp;(Edit20-gt;Text==laquo;raquo;)amp;amp;(Edit21-gt;Text==laquo;raquo;))
{throw (1);} ((Edit1- gt; Text == ) || (Edit2- gt; Text == ) || (Edit3- gt ; Text == )
||(Edit4-gt;Text==laquo;raquo;)||(Edit20-gt;Text==laquo;raquo;)||(Edit21-gt;Text==laquo;raquo;))
{throw ( a );}=(Edit1- gt; Text);=StrToInt (Edit2- gt; Text);=StrToInt (Edit3- gt; Text);=StrToInt(Edit4-gt;Text);=StrToInt(Edit20-gt;Text);=StrToInt(Edit21-gt;Text);m(name,power,cena,obv1,pow11,kolnas);=amp;m;gt;print(StringGrid4,j3);
//m.print (StringGrid4, j3);
} (char b)
{MessageDlg ( Заповніть поля! raquo ;, mtError, TMsgDlgButtons () lt; lt; mbOK, 0);
} (int a)
{MessageDlg ( Заповнені не всі поля! Будуть виведені значення за замовчуванням! raquo ;, mtError, TMsgDlgButtons () lt; lt; mbOK, 0);
pilesos m; .print (StringGrid4, j3);
} (EConvertError amp; err)
{MessageDlg ( Перевірте введення даних raquo ;, mtError, TMsgDlgButtons () lt; lt; mbOK, 0);}
}
}
//-----------------
//копіювання для БК__fastcall TForm1 :: Button2Click (TObject * Sender)
{
{q1; name, raspoloshenie; power, cena, max_temp, kol_kamer;=Edit12- gt; Text; (q1 == ) {throw (1);} - gt; Visible =True; - gt; Visible=True; pos=StrToInt (Edit12- gt; Text);=StringGrid1- gt; Cells [0] [pos];=StrToInt (StringGrid1- gt; Cells [1] [pos]); =StrToInt (StringGrid1- gt; Cells [2] [pos]); _ temp=StrToInt (StringGrid1- gt; Cells [3] [pos]); _ kamer=StrToInt (StringGrid1- gt; Cells [4] [pos]); =StringGrid1- gt; Cells [5] [pos]; _ kamera n (name, power, cena, max_temp, kol_kamer, raspoloshenie);
moroz_kamera m (n);// в об'єкт m копіюємо n
m.print (StringGrid8, x1);
} (int a)
{MessageDlg ( Введіть № запису для копіювання raquo ;, mtError, TMsgDlgButtons () lt; lt; mbOK, 0);
} (EConvertError amp; err)
{MessageDlg ( Перевірте введення даних raquo ;, mtError, TMsgDlgButtons () lt; lt; mbOK, 0);}
}
//Порівняння для канц товаров__fastcall TForm1 :: Button3Click (TObject * Sender)
{try
{int a1, a2; o1, o2;=Edit10- gt; Text;=Edit11- gt; Text; (o1 == ) {throw (1);} (o2 == ) {throw(2);}=StrToInt(Edit10-gt;Text);=StrToInt(Edit11-gt;Text);m1(StringGrid2-gt;Cells[0][a1],StrToInt(StringGrid2-gt;Cells[1][a1]),StrToInt(StringGrid2-gt;Cells[2][a1]),StrToInt(StringGrid2-gt;Cells[3][a1]),StrToInt(StringGrid2-gt;Cells[4][a1]),StringGrid2-gt;Cells[5][a1]);pic m2(StringGrid2-gt;Cells[0][a2],StrToInt(StringGrid2-gt;Cells[1][a2]),StrToInt(StringGrid2-gt;Cells[2][a2]),StrToInt(StringGrid2-gt;Cells[3][a2]),StrToInt(StringGrid2-gt;Cells[4][a2]),StringGrid2-gt;Cells[5][a2]);if (m1 == m2) {Edit13- gt; Text= Дорівнюють raquo ;;} else {Edit13- 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 :: Button3Click (TObject * Sender)
{try {a1, a2; o1, o2;=Edit10- gt; Text;=Edit11- gt; Text; (o1 == ) {throw (1);} ( o2 == ) {throw(2);}=StrToInt(Edit10-gt;Text);=StrToInt(Edit11-gt;Text);ob1(StringGrid2-gt;Cells[0][a1],StrToInt(StringGrid2-gt;Cells[1][a1]),StrToInt(StringGrid2-gt;Cells[2][a1]),StrToInt(StringGrid2-gt;Cells[3][a1]),StrToInt(StringGrid2-gt;Cells[4][a1]),StringGrid2-gt;Cells[5][a1]);holodilniki ob2(StringGrid2-gt;Cells[0][a2],StrToInt(StringGrid2-gt;Cells[1][a2]),StrToInt(StringGrid2-gt;Cells[2][a2]),StrToInt(StringGrid2-gt;Cells[3][a2]),StrToInt(StringGrid2-gt;Cells[4][a2]),StringGrid2-gt;Cells[5][a2]);if (ob1 == ob2) {Edit13- gt; Text= Дорівнюють raquo ;;} else {Edit13- gt; Text= не дорівнює raquo ;;}//порівняння (перевантаження)
} catch (int a)
{MessageDlg ( Заповніть поля! raquo ;, mtError, TMsgDlgButtons () lt; lt; mbOK, 0);} (EConvertError amp; err)
{MessageDlg ( Перевірте введення даних raquo ;, mtError, TMsgDlgButtons () lt; lt; mbOK, 0);}
}//------------------ Edit14...
