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

Edit3.Text:='';

Edit4.Text:='';

Edit5.Text:='';

Edit6.Text:='';

end; end;

procedure TForm1.ComboBox2Change(Sender: TObject); begin if combobox2.Text='1' then begin

b:=1;

Edit8.Visible:=false;

Edit9.Visible:=false;

Edit11.Visible:=false;

Edit12.Visible:=false;

ComboBox3.Visible:=true;

ComboBox4.Visible:=false;

ComboBox5.Visible:=false;

Edit7.Text:='';

Edit8.Text:='1';

Edit9.Text:='1';

Edit10.Text:='';

Edit11.Text:='1';

Edit12.Text:='1';

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

b:=2;

Edit8.Visible:=true;

Edit9.Visible:=false;

Edit11.Visible:=true;

Edit12.Visible:=false;

ComboBox3.Visible:=true;

ComboBox4.Visible:=true;

ComboBox5.Visible:=false;