Функция Sleep();

[VadEr]

Добрый день!
Делаю задержку в цикле

for ...
...
Sleep(10);
...
и при этом программа полностью не отвечает пока цикл не пройдет. Как быть?

[Stilet]

Поставь в цикл Application.ProcessMessages но Sleep не нужен тогда.

[Alex Cones]

Еще можно реализовать через таймер с интервалом 10.

[russian-stalker]

Может лучше написать поток?

[Luke]

Ессно, Sleep приостанавливает текущий поток. Советую сделать поток. И синхронизировать его, нпаример с помощью мьютекса, проверяя в цикле. И делать Sleep(500) максимум.

[DeKot]

Что значит не отвечает? Программа выполняет только те действия, которые Вы заложили в алгоритме программы.
Если Вы задали в цикле просто вычисления, то программа выполняет эти вычисления не показывая сам процес и Вы, естественно, вынуждены ждать окончания процесса вычисления. Оператор Sleep() здесь ни при чем.
Как пример -
1- й вариант.

// рисуем прямоугольник, описание переменных я сознательно опускаю
 For i:= 1 to 200 do
 begin
 // любая процедура ощищения экрана (Clear) 
 Form1.Canvas.Rectangle(x,y,100,200);
 x:= x + dx; 
 Sleep(20);
 end;

2-й вариант.

Form1.Canvas.Recnangle(x,y,100,200);
 for i := 1 to 200 do
 begin
   x:= x + dx;
  Sleep(20);
 end;
  // Та же процедура Clear
  Form1.Canvas.Rectangle(x,y,100,200);

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

[VadEr]

Всем спасибо за ценные советы.