在QuickReport中显示Yens

Question

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

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

欢迎任何想法！

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;