Ich hätte da noch eine schnellere Version im Kopf:
Delphi-Quellcode:
// (c) 2009 jfheins - member of Delphi-PRAXiS
function ReverseString (str: string): string;
var
i, len:integer;
begin
len := length(str);
setlength(Result, len);
for i := len downto 1 do
Result[i] := str[len - i + 1];
end;
Optimierungen:
1. Wegfall des Hilfsstrings
2. Statt der Verkettung von String und Char jetzt mit setlength und Zugriff per Index
Wobei ich mich (ein weiteres mal) frage, ob das nicht etwas sehr trivial ist - die Code-Library sollte ja gerade Qualität statt Quantität enthalten
