Реферат: Расчёт статически определяемых стержневых систем неравного сечения на растяжение-сжатие

Edit1.Text:='';

Edit2.Text:='1';

Edit3.Text:='1';

Edit4.Text:='';

Edit5.Text:='0';

Edit6.Text:='1';

end; if combobox1.Text='2' then begin

a:=2;

Edit2.Visible:=true;

Edit3.Visible:=false;

Edit5.Visible:=true;

Edit6.Visible:=false;

Form1.Label9.Visible:=true;

Form1.Label10.Visible:=false;

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='1';

Edit4.Text:='';

Edit5.Text:='';

Edit6.Text:='0';

end; if combobox1.Text='3' then begin

a:=3;

Edit2.Visible:=true;

Edit3.Visible:=true;

Edit5.Visible:=true;

Edit6.Visible:=true;

Form1.Label9.Visible:=true;

Form1.Label10.Visible:=true;

Edit1.Text:='';