ReverseString für ältere Delphi-Versionen

[Amateurprofi]

@Himitsu:
So ähnlich wollte ich auch antworten.
Ich hab mal getestet wie schnell/langsam die Routinen sind und habe auch noch eine eigene Routine dazu gestellt.

Delphi-Quellcode:

PROCEDURE ReverseStr(var s:string);
var p1,p2:PChar;  c:Char;
begin
   if s='' then exit;
   p1:=@s[1];
   p2:=p1+Length(s)-1;
   while p1<p2 do begin
      c:=p1^;
      p1^:=p2^;
      p2^:=c;
      inc(p1);
      dec(p2);
   end;
end;

Die Angaben sind CPU-Ticks.
Gemessen wurde auf Basis eines Strings mit 10 Zeichen.

Code:

#1 von Wolfgang Mix  : 12650
#2  von jfheins      :   450
#4  von himitsu      :   280
#7  von turboPASCAL  : 11660 
#11 von amateurprofi :    45

zu letzterer sei angemerkt, dass diese Routine eine Prozedur ist, der Vergleich mit den Funktionen ist also nicht ganz fair.