’用Delphi7编写一个程序，要求：在文本编辑框中输入三种商品的单价 购买数量 计算并输出所用总计金额。
展开全部
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;
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
