Delphi

Разработка сайтов

Наши проекты

Главная » Статьи по Delphi » Программа и интерфейс » Предотвратить подвисание программы при выполнении большого числа действий

Предотвратить подвисание программы при выполнении большого числа действий

Автор: Борисов Сергей

var i,x:integer;
begin
  For i:=0 to 399999999 do
  begin
    x:=round(x+5/50*86/5); // выполняем действия
    Application.ProcessMessages;
  end;
end;

Именно Application.ProcessMessages и предотвращает подвисание программы. Если убрать эту строчку то программа будет "подвешана", т.е. окно нельзя будет не перетащить не изменить. Доступа к нему не будет пока все действия не будут завершены.

Транспортерная лента

Продажа резинотехнических изделий. Требования для заказа.

rezinoteh.ru
Окна века

Телефонный справочник России. Информация о скидках и акциях.

elexp.ru

Просмотров: 2765

Обсудить на форуме

(18.10.2009)

1. gost

Если в программе подобных циклов десятки, а то и сотни такой подход не поможет. cool

Ответ: Вы не поняли смысл этого алгоритма! Он не ускоряет выполнение алгоритма, а делает так, что приложение будет перерисовываться, и не будет статуса "не отвечает"