Einzelnen Beitrag anzeigen

Benutzerbild von Jens Schumann
Jens Schumann

Registriert seit: 27. Apr 2003
Ort: Bad Honnef
1.644 Beiträge
 
Delphi 2009 Professional
 
#5
  Alt 20. Mai 2003, 15:51
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.
  Mit Zitat antworten Zitat