@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.