String umdrehen

[Corpsman]

Hätte auch noch ne Variante

Delphi-Quellcode:

Function StringReverse(S: String): String;
Var
  i: Integer;
  c: Char;
Begin
  For i := 1 To length(s) Div 2 Do Begin
    c := s[i];
    s[i] := s[length(s) - i + 1];
    s[length(s) - i + 1] := c;
  End;
  result := s;
End;