dieser Test entspricht aber keinesfalls den realen Bedingungen, also im Grunde kannst du diese Testergebnisse vergessen, da sich ja wohl im Normalfalls der Eingangsstring unterscheidet.
um wenigstens ein bissl den Realbedingungen nahzukommen, versuch mal die Funktionen hiermit zu testen:
Delphi-Quellcode:
var a:cardinal;i:integer;s,s1,s2:string;
a:=gettickcount;
s1:='hallo';
s2:='hallo2';
for i := 1 to 10000000 do begin
if Odd(i) then s := s1 else s := s2;
s := uppercase(s);
if s = '' then ;
end;
showmessage(inttostr(gettickcount-a));