Vielleicht, weil dein Code nicht wirklich gut arbeitet?
Und weil er über 20 Mal langamer ist, als mein Pascal-Code?
Also inkl. dem Result:=''; ansonsten bremst es je Aufruf natürlich noch extremer ab, da ja der Resultstring immer größer wird.
(der Code von jfheins ist dagegen 3 Mal schneller, bei einem 10 Zeichen langem String, wärend dein Code eine expotentiell steigende Zeit zur Stringlänge hat und unsere Codes arbeiten linear)
Dein String ist nicht initialisiert.
Delphi-Quellcode:
function ReverseAnsiString(const s: Ansistring): Ansistring;
var i : integer;
begin
Result := '';
for i := Length(s) downto 1 do
Result := Result + s[i];
end;
probier es mal aus ... du wirst ganz schön erstaunt sein
Delphi-Quellcode:
var S, S2: AnsiString;
i: Integer;
S := '123';
for i := 0 to 9 do
begin
S2 := ReverseString(S);
ShowMessage(S2);
end;