Вопросы и Ответы
7. При выполнении длинного цикла происходит останов Windows. Как этого избежать?
В Windows API данная проблема решается вызовом в длинном цикле функции:
function Yield: Bool;
которая останавливает выполнение текущей задачи и запускает ждущую задачу. Но в Delphi эта функция не работает, она заменена на аналогичный метод ProcessMessages объекта TApplication.
Пример:
............
WHILE
NOT EOF(F) DO BEGIN Read(F,
i); END;
............
Application.ProcessMessages;
...предыдущая страница следующая...
оглавление