Stringreihenfolge umkehren

[olee]

Hier ein kleiner Code...

Delphi-Quellcode:

var i : Integer;
    s : String;
begin
  s := Edit1.Text;
  for i := 1 to length(s) do
  begin
    s[i] := Edit1.Text[length(s)-i+1];
  end;
  Label1.Caption := s;

(Fast zu leicht ^_^ )