Функция Delphi Sleep

В процессе решения некоторых задач возникает потребность задержки выполнения операций. Для этих целей нам подойдет функция Sleep(N), где N это число миллисекунд - длительность паузы.

Давайте вспомним пример, где мы разбирали метод Delphi ProcessMessages. Мы добавим "Начальное значение", которое без дополнительной задержки мы бы и не разглядели и саму задержку на полторы секунды, строка - Sleep(1500).

procedure TForm1.Button1Click(Sender: TObject);
var
   I : Integer;
begin
   Label1.Caption := 'Начальное значение';
   for I := 1 to 15 do
    begin
     Application.ProcessMessages;
     Label1.Caption := 'Значение равно ' +IntToStr(I);
     Sleep(1500);
    end;
end;

Итог: мы изучили функцию Sleep и как ее использовать в приложении.

Понравилась статья? Раскажите друзьям:
Общайтесь со мной

2 thoughts on “Функция Delphi Sleep

    • выше описанная программа будет зависать на 5 секунд, если sleep (5000).
      без строки
      Application.ProcessMessages;
      зависание программы увеличиться. Время задержки будет равно произведению единичной задержки (5 секунд) на количество повторений в цикле, в данном случае 15. 75 секунд или 1 минута и 15 секунд.

Оставить комментарий

Ваш email не будет опубликован. Обязательные поля отмечены *

Вы можете использовать это HTMLтеги и атрибуты: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>