Question

’用Delphi7编写一个程序，要求：在文本编辑框中输入三种商品的单价 购买数量 计算并输出所用总计金额。

单价 数量
第一种商品56.5 10
第二种商品32 20
第三种商品103.5 15

Answer 1

procedure TForm1.btnCalClick(Sender: TObject);
var
  sum: Extended;
begin
  sum := StrToFloatDef(edt1.Text, 0)*StrToFloatDef(edt2.Text, 0) +
    StrToFloatDef(edt3.Text, 0)* StrToFloatDef(edt4.Text, 0) +
    StrToFloatDef(edt5.Text, 0)*StrToFloatDef(edt6.Text, 0);
  lbl1.Caption := FloatToStr(sum);

end;

Answer 2

自己动动手吧，最基本的东西了

追问

我要是会还会问你？