Отображать иены в 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;