Delphi 在QuickReport中显示Yens

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

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

---

欢迎任何意见

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

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;

---

那么您正在使用字符$5C，即使它在Delphi表单中工作，它也不会出现在您的报告中？您使用的日元符号的字符值是多少？您在Windows中使用的是日文代码页（代码页932）？使用的字体名称也很有趣。对于显示，我使用Paradox表中的TQRDBText和AMOUNT:TCurrencyField。我解决了我的问题。我必须编写Font.CharSet:=SHIFTJIS\u CharSet；谢谢你的帮助！