Question

用Delphi编写一个程序，要求：在文本编辑框中输入三种商品的单价 购买

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

Answer 1

试编写代码如下：

procedure TForm1.Button1Click(Sender: TObject);
var total: Double;
begin
  total := StrToFloat(edtPrice1.Text) * StrToInt(edtNum1.Text) +
           StrToFloat(edtPrice2.Text) * StrToInt(edtNum2.Text) +
           StrToFloat(edtPrice3.Text) * StrToInt(edtNum3.Text);
  ShowMessage('共计 ' + FloatToStr(total) + ' 元。');
end;

procedure TForm1.edtPrice1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9','.']) then
    Key := #0;
end;

procedure TForm1.edtNum1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9']) then
    Key := #0;
end;

运行效果截图如下：