delphi - 在 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;