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

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

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

2024-11-06 09:50:41

推荐回答（2个）

回答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;

回答2：

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

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

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