Delphi中的浮点数字小数点近似

Question

在我的Delphi XE2项目中，我使用一些实际变量来计算一些与凭证相关的数据。我已经写了以下代码：

unit Unit1;
interface
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, System.Math;
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
  ServiceTax, RetailPrice, ProcessingFee, VoucherValue, AccountBalance, Airtimepercentage : real;
begin
  RetailPrice := StrToFloatDef(Edit1.text, 0);
  ServiceTax := StrToFloatDef(Edit2.text, 0);
  if (RetailPrice*(10/100) <= 5) then ProcessingFee := RetailPrice*(10/100) else ProcessingFee := 5;
  VoucherValue := (RetailPrice/(1+(ServiceTax/100)) - ProcessingFee);
  AccountBalance := StrToFloatDef(Edit5.text, 0);
  AirTimePercentage := (AccountBalance/VoucherValue)*100;
  Edit3.Text := FloatToStrF(ProcessingFee, ffFixed, 16, 6);
  Edit4.Text := FloatToStrF(VoucherValue, ffFixed, 16, 6);
  Edit6.Text := FloatToStrF(AirTimePercentage, ffFixed, 16, 6);
end;
end.

但问题是VoucherValue是一个浮点数。它包含一个很长的小数点，但我的要求是只能达到两个小数点，或者可能是一个长小数点，但是在两个小数后（示例12.19），所有数字都将为零（示例12.190000）。所以我尝试了FormatFloat，如下所示：

  VoucherValue := StrToFloatDef(FormatFloat('0.##', FloatToStrF((RetailPrice/(1+(ServiceTax/100)) - ProcessingFee), ffFixed, 16, 6)), 0);

但我无法编译，并得到如下错误：

[dcc32 Error] Unit1.pas(46): E2250 There is no overloaded version of 'FormatFloat' that can be called with these arguments

FormatFloat的另一个缺点是它可以截断（即12.129999到12.12），但不能近似（即12.1299到12.13），但我需要近似。

另一个解决方案是使用另一个字符串变量，但我不喜欢使用。

请推荐我。

Answer 1

当编译器告诉您没有重载可以接受您给它的参数时，您应该做的第一件事就是检查有哪些重载可用。然后您将看到FormatFloat的所有重载都期望第二个参数的类型为Extended。您正在传递FloatToStrF的结果，它返回一个字符串。（此外，当你调用FloatToStrF时，你会要求小数点后六位，所以你不会得到一个四舍五入到两位的值也就不足为奇了。）

在格式化之前不要将值转换为字符串；这就是FormatFloat已经要做的。

VoucherValue := StrToFloatDef(FormatFloat('0.##', (RetailPrice/(1+(ServiceTax/100)) - ProcessingFee)), 0);

更好的是，如果字符串不是你真正想要的，那么根本不要将你的值转换为字符串。显然，您仍然需要一个四舍五入到一定数量的数值，所以对其调用RoundTo。对于两个小数位，第二个参数应该是−2.

VoucherValue := RoundTo(RetailPrice/(1+(ServiceTax/100)) - ProcessingFee, -2);

Answer 2

我怀疑真正的问题是您的值不可表示，这个问题已经讨论了很多次。您的值不能使用二进制浮点精确表示。

您有两个主要选项：

• 保持类型和值不变，但在输出时格式为小数点后两位。例如CCD_ 11或CCD_。与你在问题中所说的相反，FormatFloat是四舍五入到最近的
• 使用十进制数据类型，以便准确地表示值