printer.canvas.Textout spiegelverkehrt ausgeben ?

[Jens Schumann]

Hallo,
sakura's Vorschlag läuft nicht unter Win9x Systemen.
Erst ab Win2000 (WinNT konnte ich nicht testen).

Warum drehst Du den String nicht einfach um. Sakura's Vorschlag macht das auch.

Delphi-Quellcode:

function SkipString(const Value: String): String;
var
  I   : Integer;
  P   : PChar;
begin
  SetLength(Result, Length(Value));
  P := PChar(Result);
  for I := Length(value) DownTo 1 do
    begin
      P^ := Value[I];
      Inc(P);
    end;
end;

Aber Achtung: ich habe gerade noch einmal über Spiegelverkehrt nachgedacht. Das bedeutet doch, dass man jeden Buchstaben an seine vertikalen Achse spiegeln muss. Das kann mein und Sakura's Vorschlag aber nicht.