ReverseString für ältere Delphi-Versionen

[himitsu]

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;