procedure TForm1.btn1Click(Sender: TObject);varsz1,sz2,sz3,sz4,sz5,sz6,sz7, sz8 : Double;beginif (edt1.Text = '') or
(edt2.Text = '') or
(edt3.Text = '') or
(edt4.Text = '') or
(edt5.Text = '') or
(edt6.Text = '') thenbegin
ShowMessage('不能为空');
Exit;end;try
sz1... |