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?