Временные интервалы

← →
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;

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

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