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


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

Поиск по базе



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

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

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



Вернуться к списку функций
 Вариант процедуры Delay

 Прислал: Voldemar (Санкт-Петербург) ( 31 июля 2002 г. )
©  Советы по Delphi от Валентина Озерова (kuliba v1.3.1) за 2001 год
 Описание:
Очень простое решение организации задержки. (выдрано из Кулибы)

 Зависимости:
System

 Ограничения:
Проверено в D4, D5 под win98; D5, D6 под Win2k; D5, D6 под WinXP

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Вариант процедуры Delay

Очень простое решение организации задержки. (выдрано из Кулибы)

Зависимости: System
Автор:       Voldemar, Санкт-Петербург
Copyright:   Советы по Delphi от Валентина Озерова (kuliba v1.3.1) за 2001 год
Дата:        31 июля 2002 г.
***************************************************************** }

procedure Delay (Seconds: Real);
var
 Later: TDateTime;
begin
 Later:= Now + (Seconds / (24.0 * 60.0 * 60.0));
 While Now < Later do Application.ProcessMessages;
end;

 Пример использования:
Delay(0.5); //Задержка на полсекунды


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

Наверх ▲