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.129999到12.13），但我需要近似值。

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

请建议我。

Answer 1

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

在格式化之前，请勿将值转换为字符串;这就是FloatToStrF已经做的事情。

FormatFloat

更好的是，如果字符串不是你真正想要的，那么根本不要将你的值转换为字符串。您显然仍然希望数字值舍入达到一定数量，因此请在其上调用VoucherValue := StrToFloatDef(FormatFloat('0.##', (RetailPrice/(1+(ServiceTax/100)) - ProcessingFee)), 0);。对于两位小数，第二个参数应为-2。

RoundTo

Answer 2

我怀疑真正的问题是你的价值无法代表，这个问题经过多次讨论。您的值无法使用二进制浮点精确表示。

您有两个主要选择：

保持类型和值不变，但格式化为输出中的两位小数。例如Format('%.2f', [Value])或FormatFloat('0.##', Value)。与您在问题中陈述的内容相反，FormatFloat会绕到最接近的位置。
使用小数数据类型，因此准确表示该值。

Delphi中的浮点数小数点近似

2 个答案: