Delphi langsam

[Lyan]

Hallo,

habe mit einem Kollegen mal einen kleinen Test durchgeführt. Wollte mal die performance von inttostr() testen im Vergleich zu itoa() von C++.

Delphi:

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

uses
  windows,
  sysutils;

var
  i,j : Integer;
  c, cbuf : DWORD;
  s : AnsiString;
begin
  c := GettickCount;
  for I := 0 to 5650 do begin
    for j := 0 to 9930 do begin
      s := Itoaj);
      s := IntToStr(j-i);
    end;
    cBuf := GetTickCount;
  end;
  cbuf := GetTickCount;
  writeln(cbuf-c);
  readln;
end.

C++

Code:

 int  i,j;
 unsigned c, cbuf;
 char s[200];
 c = GetTickCount();
 for(i = 0; i <= 5650; i++){
  for(j = 0; j <= 9930; j++){
   _itoa(j,s,16);
   _itoa(j-i,s,16);
  }
  cbuf = GetTickCount();
 }
 cbuf = GetTickCount();
 printf("%u",cbuf-c);
 Sleep(1000000);
 return 0;

Ergenisses :

http://www0.xup.in/exec/ximg.php?fid=15400968

C++ ~ 9 Sekunden schneller??????
Wie geht das denn?^^