Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Управление приложением



Вернуться к списку функций
 Процедура Delay (как в паскале)

 Прислал: demon-777 (Питер) ( 23 мая 2002 г. )
©  Выдрана из RxLib
 Зависимости:
Forms, Windows, SysUtils

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Процедура 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);//Задержка на одну секунду


Вернуться к списку функций

Наверх ▲