Реализация функции Delay 4Delphi , Синтаксис , Дата и ВремяРеализация функции Delay 4
Оформил: DeeCo // 4. Combined Delay { Including the Sleep in the loop prevents the app from hogging 100% of the CPU for doing practically nothing but running around the loop. } procedure PauseFunc(delay: DWORD); var lTicks: DWORD; begin lTicks := GetTickCount + delay; repeat Sleep(100); Application.ProcessMessages; until (lTicks <= GetTickCount) or Application.Terminated; end; Статья Реализация функции Delay 4 раздела Синтаксис Дата и Время может быть полезна для разработчиков на delphi & pascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Дата и Время ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |