delphi - QuickReport に円を表示する

Question

通貨フィールドを印刷すると、円記号の代わりに「\0」が表示されます (私の地域設定は日本語形式に設定されています)

Delphi 6 のレポートに円を表示するにはどうすればよいですか? (Quick Reports の別のバージョンは使用できません)

どんなアイデアでも大歓迎です！

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;