ReverseString

[-187-]

Habe folgende Funktion mal irgendwo gefunden und in meine Bib mit aufgenommen. Ist recht simple aber effektiv...Aaaaber es gibt noch eine schönere Variante die hab ich jedoch vergessen...wird aber irgendwo im Forum besprochen.

Delphi-Quellcode:

Function String_Reverse(S : String): String;
Var
   i : Integer;
Begin
   Result := '';
   For i := Length(S) DownTo 1 Do
   Begin
     Result := Result + Copy(S,i,1) ;
   End;
End;