delphi - Delphi XE7在编辑框中使用小数进行除法

请帮忙：
我的表单上有两个编辑框。我用来输入金额的第一个。我用第二个数字除以。问题是我尝试使用带有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;

谢谢

最佳答案

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

关于delphi - Delphi XE7在编辑框中使用小数进行除法，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/32636024/