Калибровка таймера

← →
Drex (2003-03-19 10:17) [0]

Вот текст процедуры: Под WinME все работает прекрасно, а вот под XP пустой цикл почему-то выполняется мгновенно и соответственно разница во временах начала и завершения цикла нулевая. Уважаемые знатоки, подскажите в чем дело?
procedure TOptionsForm.CalibrateDelays;
var
StartTime : TDateTime;
i : LongWord; //Счетцик циклов
Delta : Word; //Длительность цикла в мсек
Begin
ProcessForm:=TProcessForm.Create(Application);
ProcessForm.Show;
StartTime:=Time;
i:=0;
Repeat
Inc (i);
//Application.ProcessMessages;
Until i<200000000;
Delta:=MillisecondsBetween (Time, StartTime);
CyclPermS:=200000000 Div Delta;
CyclPermSLabel.Caption:=IntToStr(CyclPermS)+" "+TimeToStr(StartTime)+" "+TimeToStr(Time);
ProcessForm.Free;
End;

← →
Drex (2003-03-19 10:46) [1]

Прошу прощения одну строку неправильно написал

Until i=200000000;

← →
Слесарь Матерящийся (2003-03-19 10:51) [2]

Для реализации задержек следует использовать ф-и Sleep() и WaitFor...(). Замкнутые циклы - плохой стиль.

← →
Drex (2003-03-19 12:11) [3]

Sleep на маленьких задержках порядка 1-2 мс сильно врет, а вот про WaitFor я еще не слыхал ни разу...

Калибровка таймера Найти похожие ветки