;-gt;Visible=True;-gt;Visible=False;
} (i == 3)//Полісся
{-gt;Visible=False;-gt;Visible=False;-gt;Visible=False;-gt;Visible=False;-gt;Visible=False;-gt;Visible=False;-gt;Visible=False;-gt;Visible=True;-gt;Visible=True;-gt;Visible=True;-gt;Visible=False;-gt;Visible=False;-gt;Visible=False;-gt;Visible=True;
}
} __ fastcall TForm1 :: Button1Click (TObject * Sender)
{name;power,cena;raspoloshenie;max_temp,kol_kamer;shema_komponovki;tip;obv1,pow11,kolnas;*p;
if (i == 0)//морозильні камери
{
{
if ((Edit1- gt; Text == ) amp; amp; (Edit2- gt; Text == ) amp; amp; (Edit3- gt; Text == ) amp; amp; (Edit5- gt; Text == ) amp; amp; (Edit8- gt; Text == ) amp; amp; (Edit17- gt; Text == ))
{throw (1);} ((Edit1- gt; Text == ) || (Edit2- gt; Text == ) || (Edit3- gt ; Text == ) || (Edit5- gt; Text == ) || (Edit8- gt; Text == ) || (Edit17- gt; Text == laquo ; ))
{throw ( a );}=(Edit1- gt; Text);=StrToInt (Edit2- gt; Text);=StrToInt(Edit3-gt;Text);_temp=StrToInt(Edit5-gt;Text);_kamer=StrToInt(Edit8-gt;Text);=Edit17-gt;Text;_kamera m (name, power, cena, max_temp, kol_kamer, raspoloshenie);= amp; m; gt; print (StringGrid1, j);
//m.print (StringGrid1, j);
} (char b)
{MessageDlg ( Заповніть поля! raquo ;, mtError, TMsgDlgButtons () lt; lt; mbOK, 0);
} (int a)
{MessageDlg ( Заповнені не всі поля! Будуть виведені значення за замовчуванням! raquo ;, mtError, TMsgDlgButtons () lt; lt; mbOK, 0);
moroz_kamera m; .print (StringGrid1, j);= amp; m;
//p- gt; print (StringGrid1, j);
} (EConvertError amp; err)
{MessageDlg ( Перевірте введення даних raquo ;, mtError, TMsgDlgButtons () lt; lt; mbOK, 0);}
} (i == 1)//Холодильники
{
{((Edit1- gt; Text == ) amp; amp; (Edit2- gt; Text == ) amp; amp; (Edit3-gt;Text==laquo;raquo;)amp;amp;(Edit6-gt;Text==laquo;raquo;)amp;amp;(Edit18-gt;Text==laquo;raquo;)amp;amp;(Edit19-gt;Text==laquo;raquo;))
{throw (1);} ((Edit1- gt; Text == ) || (Edit2- gt; Text == ) || (Edit3-gt;Text==laquo;raquo;)||(Edit6-gt;Text==laquo;raquo;)amp;amp;(Edit18-gt;Text==laquo;raquo;)amp;amp;(Edit19-gt;Text==laquo;raquo;))
{throw ( a );}=(Edit1- gt; Text);=StrToInt (Edit2- gt; Text);=StrToInt (Edit3- gt; Text); _ temp=StrToInt ( Edit6-gt;Text);_kamer=StrToInt(Edit18-gt;Text);_komponovki=Edit19-gt;Text;m(name,power,cena,max_temp,kol_kamer,shema_komponovki);=amp;m;gt;print(StringGrid2,j1);
//m.print (StringGrid2, j1);
} (char b)
{MessageDlg ( Заповніть поля! raquo ;, mtError, TMsgDlgButtons () lt; lt; mbOK, 0);
} (int a)
{MessageDlg ( Заповнені не всі поля! Будуть виведені значення за замовчуванням! raquo ;, mtError, TMsgDlgButtons () lt; lt; mbOK, 0);
holodilniki m; .print (StringGrid2, j1);} (EConvertError amp; err)
{MessageDlg ( Перевірте введення даних raquo ;, mtError, TMsgDlgButtons () lt; lt; mbOK, 0);}
} (i == 2)//Мікрохвильові печі
{
{
if ((Edit1- gt; Text == ) amp; amp; (Edit2- gt; Text == ) amp; amp; (Edit3- gt; Text == ) amp; amp; (Edit7- gt; Text == ))
{throw (1);} ((Edit1- gt; Text == ) || (Edit2- gt; Text == ) || (Edit3- gt ; Text == ) || (Edit7- gt; Text == ))
{throw ( a );}=(Edit1- gt; Text);=StrToInt (Edit2- gt; Text);=StrToInt (Edit3- gt; Text);=Edit7- gt; Text; _pechi m (name, power, cena, tip);= amp; m; gt; print (StringGrid3, j2);
//m.print (StringGrid3, j2);
} (char b)
{MessageDlg ( Заповніть поля! raquo ;, mtError, TMsgDlgButtons () lt; lt; mbOK, 0);
} (int a)
{MessageDlg ( Заповнені не всі поля! Будуть виведені значення за замовчуванням! raquo ;, mtError, TMsgDlgButtons () lt; lt; mbOK, 0);
microv_pechi m; .print (StringGrid3, j2);} (EConvertError amp; err)
{MessageDlg ( Перевірте введення даних raquo ;, mtError, TMsgDlgButtons () lt; lt; mbOK, 0);}
} (i == 3)//Полісся
{
{((Edit1- gt; Text == ) amp; a...
