Скачать: CL | DM;

Временные интервалы   Найти похожие ветки 

← →
Radik   (2003-11-17 13:58) [0]

Здравствуйте уважаемые эксперты !

Помогите решить следующую проблему
есть консольное приложение, надо мерить
временные интервалы как больше секунды,
так и меньше секунды. Использую тип
TDateTime. Больше секунды мерить получается,
а вот меньше никак.
Дельфи 3.
Буду рад куску программы.
Заранее спасибо.
Радик.
Приложение.
Вот кусок моей программы:
// временная задержка заданной длины
f:=False;
OldT:=Time;
repeat
NewT:=Time;
if (NewT-OldT) >= 0.000015 //1.5 second
then Break;
until f = True;

---

← →
PVitaliy ©   (2003-11-17 14:51) [1]

Используй функцию GetTickCount (возвращает время работы винды в милисекундах)
f:=False;
OldT:=GetTickCount;
repeat
NewT:=GetTickCount;
if (NewT-OldT) >= 1500 //1.5 second
then Break;
until f = True;

---

← →
Fay   (2003-11-17 15:04) [2]

Это не то же самое?
OldT:=GetTickCount;
repeat
NewT:=GetTickCount;
until (NewT-OldT) >= 1500;

---

← →
Radionov Alexey ©   (2003-11-17 15:10) [3]

Насколько я понял, цель - реализовать паузу?
Тогда выгоднее sleep, единственно, что время реального "сна" будет очень приблизительным

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c