ReverseString für ältere Delphi-Versionen

[jfheins]

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