хоть мне кажется это уже давно разжеванный вопрос но у меня ничего не получается
делал и так
Код:
procedure TForm1.Button1Click(Sender: TObject);
const
ms = 1/24/60/60/1000;
var i:integer;
t1, t2: tdatetime;
as1:array [1..1000] of integer;
begin
randomize;
t1 := now;
for i:=1 to 1000 do as1[i]:=random(40);
t2 := now - t1;
ShowMessage('Твой код выполнялся:'+inttostr(trunc(t2/ms))+'милисеунд');
end;
и так
Код:
var i:integer;
t:integer;
as1:array [1..1000] of integer;
begin
randomize;
t:=GetTickCount;
for i:=1 to 1000 do as1[i]:=random(40);
t:=t-GetTickCount
ShowMessage('Твой код выполнялся:'+inttostr(t)+'милисеунд');
end;
вроди бы все верно но всегода показывает
Твой код выполнялся:0 милисеунд
Как быть?