13.05.2008, 13:32
|
|
Познающий
Регистрация: 06.08.2007
Сообщений: 36
С нами:
9876570
Репутация:
10
|
|
Сообщение от !{ra!{e/\/
я так уже пробывал...вот опять...
Код:
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;
делаю как ты сказал выходит
Твой код выполнялся:0милисеунд
что неправильно? var
tick:integer;
begin
tick:=GetCurrentTick;
... тут код
messagebox(0,PAnsiChar('Твой код выполняется: '+inttostr(GetCurrentTick-tick)+' мс.'),'',0);
|
|
|