| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Время процедуры [D7]

hgd ©   (2004-09-08 16:38:00) 

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

---

Jeer   (2004-09-08 17:21:00) [1]

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

---

hgd   (2004-09-08 16:49:00) [2]

Спасибо!

---

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

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

---

MU   (2004-09-08 16:39:00) [4]

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

---

Ega23   (2004-09-08 16:39:00) [5]

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

---

Наверх