在 QuickReport 中显示日元

【问题标题】：Display Yens in QuickReport在 QuickReport 中显示日元
【发布时间】：2011-05-07 11:48:04
【问题描述】：

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

如何在 Delphi 6 的报表中显示 Yens？（我不能使用其他版本的快速报告）

欢迎任何想法！

【问题讨论】：

所以您使用的是字符 $5C，即使它在 Delphi 表单中工作，它也不会出现在您的报告中？您使用的日元符号的字符值是多少？您在 Windows 中使用日文代码页（代码页 932）？
使用的字体名称也很有趣。
为了显示，我通过 AMOUNT 使用 TQRDBText：来自 Paradox 表的 TCurrencyField。我解决了我的问题。我不得不写 Font.CharSet := SHIFTJIS_CHARSET;感谢您的帮助！

标签： delphi unicode delphi-6 quickreports currency-formatting

【解决方案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;

【讨论】：