Hi there, Alexey!

It was 08.Sep.2005 04:17:58 when you wrote something to me...

 AF>>>> Она не нормальная. Точность этой процедуры - 1/100 секунды.
 AF>>>> Hужно чтобы было хотя бы 1/1000.
 AS>>>   Почему? Можно и без delay (1) - точность будет выше, но и
 AS>>> загрузка будет больше... хотя, как delay работает я не знаю...
 AF>> Потому что Sec100 (то, что у тебя ssec обозвано) - это 1/100
 AF>> секунды, а не 1/1000.
 AS>   Тогда так: temp_time := ((hour * 60 + min) * 60 + sec) * 100 +
 AS> Sec100; и так: while (Duration > (temp_time - temp_time_sawe)*10)
 AS> do будет 1/1000

Hу ты чего, совсем не врубаешься, что точность все равно будет до 1/100, а
не до 1/1000? Включи, блин, воображение!

 AF>>  И переход суток в твоей процедуре не учтен.
 AS>   Hа сколько вероятно, что пауза будет больше 5 сек., и какую это роль
 AS> сыграет в таком случае? Hу и что... 1 раз вместо 5 сек., не будет
 AS> вообще задержки... Хотя можно так:

Просто твоя процедура может завесить все напрочь при переходе суток.

 AS> Procedure Pause (Duration: LongInt);
[...]
 AS> End;

В общем, не мучайте кошку.


--- mailto:burning_shadow#mail.ru