13.06.2010, 21:31
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
Провел на форуме:
828081
Репутация:
84
|
|
Procedure timer(it.l)
Repeat
Delay(1)
speedn.l = speedn.l + 1
Until speedn.l = 10000
EndProcedure
Если Delay это аналог Sleep то процедура твоя половину времени спит
ЗЫ Могу и ошибаться
|
|
|