Thema: Delphi Unicode drucken

Einzelnen Beitrag anzeigen

BlueStarHH

Registriert seit: 28. Mär 2005
Ort: Hamburg
849 Beiträge
 
Delphi 11 Alexandria
 
#1

Unicode drucken

  Alt 7. Jul 2009, 17:57
Hallo,

seit kurzem nutze ich Delphi 2009. Mit dem Code folgender Art drucke ich aus meinem Program. An der Stelle wo 'UnicodeText' steht, steht ein Unicode-String, der jedoch mit lauter Fragezeichen gedruckt wird. Wie kann man das lösen? Danke!

Delphi-Quellcode:
uses
  Printers;

procedure PrintTest;
var
  pt: System.Text;

begin
  AssignPrn(pt);
  Rewrite(pt);

  Printer.Canvas.Font.Name := 'Arial';
  Printer.Canvas.Font.Size := 12;

  WriteLn(pt, 'UnicodeText');
     
  System.Close(pt);
end;
  Mit Zitat antworten Zitat