Wortumkehr mit ADT Stapel

[Cyf]

Zitat von DeathsShadow:

Delphi-Quellcode:

Setlength(result,0);
for i := length(Text) downto 1 do
begin
  Setlength(result,length(result)+1);
  result[length(result)] := Text[i];
end;

Davon sollte man wirklich absehen, wenn man die Länge kennt, dann SetLength einmal vorher aufrufen.