Сегодня мы поговорим о некой функции Sleep в Delphi. Что она делает? Она как бы замедляет прогресс процесса программы на заданное кол-во времени.

Рассмотрим все это на примере. Создаем новый проект, кидаем на форму Edit1 и Button1.
Кликаем на кнопку, переходим в режим редактирования кода и пишем:

var
I : Integer;
begin
for I := 1 to 100 do
begin
Application.ProcessMessages;
Edit1.Text := ‘Значение равно ‘ +IntToStr(I);
Sleep(100);
end;

Далее компилируем (F9) программу , нажимаем на кнопку и видим:

Добавлено: 05 Сентября 2013 01:41:11 Добавил: Андрей Ковальчук Нравится 0

Добавить