在 QuickReport 中显示日元

Question

当我打印货币字段时，我得到“\0”而不是日元符号（我的区域设置设置为日语格式）

如何在 Delphi 6 的报表中显示日元？ （我无法使用其他版本的快速报告）

欢迎任何想法！

Answer 1

您通过执行以下操作解决了该问题

Font.Charset:= SHIFTJIS_CHARSET;

另一种选择是：

您可以使用要打印的数字的 OnPrint 事件并在 ¥ 符号前面添加前缀。

就像这样：

procedure TForm1.QRDBAnAmountPrint(sender: TObject; var Value: string);
begin
  //If the number doesn't have a currency symbol.
  Value:= '¥ '+Value;

  //If the number does have a currency symbol
  Value:= StringReplace(Value, "textforwrongsymbol", "¥");
end;