Delphi XE7在编辑框中使用小数除法

Question

请帮忙:我的表单上有两个编辑框。我用第一个来输入金额。我用第二个来划分金额。问题是我尝试使用带小数的数字(如 5.5)，但不断收到错误:“'5.5' 不是有效的整数值”。

这是我使用的代码:

var igroei,ipen, iper : integer;
    rgroei, rper : real;

begin
   ipen := strtoint(edtpen.Text); //the amount enter like 35060
   iper := strtoint(edtper.Text); // The number use for the percentage like 5.5
   iper := iper div 100;
   rgroei := ipen + iper;
   pnlpm.Caption := floattostrF(rgroei,ffcurrency,8,2);
end;

谢谢

Answer 1

5.5 确实不是一个有效的整数。它是一个浮点值。使用 StrToFloat() 而不是 StrToInt()，并使用 Extended 而不是 Integer 作为变量类型。

var
  ipen, iper, rgroei : Extended;
begin
  ipen := StrToFloat(edtpen.Text); //the amount enter like 35060
  iper := StrToFloat(edtper.Text); // The number use for the percentage like 5.5
  iper := iper / 100.0;
  rgroei := ipen + iper;
  pnlpm.Caption := FloatToStrF(rgroei, ffcurrency, 8, 2);
end;

您应该阅读以下内容才能开始:

Integer and floating point numbers: The different number types in Delphi