Процедура задержки выполненияDelphi , Компоненты и Классы , Процедуры и ФункцииПроцедура задержки выполнения
Автор: demon-777 { **** UBPFD *********** by delphibase.endimus.com **** >> Процедура Delay (как в паскале) Зависимости: Forms,Windows,SysUtils Автор: demon-777, demon-777@yandex.ru, Питер Copyright: Выдрана из RxLib Дата: 23 мая 2002 г. ***************************************************** } {Delay, не загружающий процессор} procedure Delay(Value: Cardinal); var F, N: Cardinal; begin N := 0; while N <= (Value div 10) do begin SleepEx(1, True); Application.ProcessMessages; Inc(N); end; F := GetTickCount; repeat Application.ProcessMessages; N := GetTickCount; until (N - F >= (Value mod 10)) or (N < F); end; Пример использования: Delay(1000); //Задержка на одну секунду Процедура Delay в Delphi позволяет выполнить задержку программы без загрузки процессора, обеспечивая минимальное влияние на производительность системы. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Процедуры и Функции ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |