在FastReport VCL 5脚本中使用FormatFloat

Question

我正尝试使用以下脚本将货币格式化值打印到报表上的TfrxMemoView：

procedure txCreditLimitOnBeforePrint(Sender: TfrxComponent);
begin
  if <TRAN."CREDITAPPROVED"> = 1 then                                
    txCreditLimit.Text := 'Credit Limit: ' + FormatFloat('%2.2m', <TRAN."CREDITLIMIT">)
  else
    txCreditLimit.Text := '';
end;

但我得到的只是％2.2m而不是实际值。我究竟做错了什么？

Answer 1

FastReport中的函数FormatFloat在Delphi中的工作方式与FormatFloat类似，因此您可以使用：

procedure txCreditLimitOnBeforePrint(Sender: TfrxComponent);
begin
  if <TRAN."CREDITAPPROVED"> = 1 then                                
    txCreditLimit.Text := 'Credit Limit: ' + FormatFloat('#,##0.00 €', <TRAN."CREDITLIMIT">)
  else
    txCreditLimit.Text := '';
end;

由于FormatFloat不支持系统货币，另一种方法可能是使用绑定到包含表达式的数据集的备忘录，例如： Credit Limit: [TRAN."CREDITLIMIT"]并使用您提到的语法在Object Inspector中格式化此备忘录。 您打印的条件将更改为：

procedure txCreditLimitOnBeforePrint(Sender: TfrxComponent);
begin
  txCreditLimit.Visible := <TRAN."CREDITAPPROVED"> = 1;
end 

方括号中的表达式将在TextObjects中计算，例如
[<DS."a">] * 2 := [<DS."a"> + <DS."a">]会产生以下输出：12.50 € * 2 = 25.00 €
如果TfrxMemoView的格式定义为%2.2m。在所示的示例中，两个术语（包括在方括号中）被格式化，第二个术语被另外计算。