Текущий архив: 2004.09.26;
Скачать: CL | DM;

Вниз

Время процедуры   Найти похожие ветки 

← →
hgd   (2004-09-08 16:38) [0]

Как можно измерить, сколько длится выполнении процедуры с точностью до МИЛИСЕКУНД

---

← →
MU ©   (2004-09-08 16:39) [1]

T1 := GetTickCount;
MyProc;
T2 := GetTickCount;

---

← →
Ega23 ©   (2004-09-08 16:39) [2]

(GetTickCount после) - (GetTickCount до)

---

← →
Квэнди ©   (2004-09-08 16:44) [3]

var
t,t1:Tdatetime
begin
t:=now;
{Procedure}
t1:=now;
showmessage(datetimetostr(t1-t));
end;

---

← →
hgd   (2004-09-08 16:49) [4]

Спасибо!

---

← →
Jeer ©   (2004-09-08 17:21) [5]

Только если процедура недлинная:)

---

Страницы: 1 вся ветка

Текущий архив: 2004.09.26;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.036 c