Random() zu langsam?

[Khabarakh]

lol? Folgender Code benötigt nicht einmal eine Millisekunde:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows, DateUtils;

const
  n = 100000;
var
  i: Integer;
  Start: Cardinal;
  Data: array of Integer;
begin
  Start := GetTickCount;
  Randomize;
  SetLength(Data, n);
  for i := 0 to n - 1 do
    Data[i] := Random(n);
  Writeln(GetTickCount - Start);
  Readln;
end.

Zitat von Kuonrat:

Man sagte mir ich soll .NET deaktivieren, ich hab leider keine Idee wie ich das machen soll, noch ob es überhaupt etwas bringt. Ich benutze Delphi 2005 Prof.

Das Projekt ist aber schon Delphi.Win32 und nicht Delphi.Net, oder?