String umkehren

[jfheins]

Da hatt' ich was für dich:

Delphi-Quellcode:

function StrRev (Str: String): String;
var
 Res: String;
 i: Cardinal;
begin
 for i := length (Str) downto 1 do Res := Res + Str[i];
 Result := Res;
end;