Форум: "Начинающим";
Текущий архив: 2007.12.16;
Скачать: [xml.tar.bz2];
Внизприостановить выполнение программы Найти похожие ветки
← →
Михаил С (2007-11-22 19:54) [0]как приостановить выполнение программы так чтобы она не "подвисала" так как при использовании
sleep(t);
?
← →
Anatoly Podgoretsky © (2007-11-22 19:55) [1]> Михаил С (22.11.2007 19:54:00) [0]
Если она не подвисает, значит она не приостановлена.
← →
@!!ex © (2007-11-22 20:02) [2]while <условие приостановки> do
Sleep(100);
← →
Михаил С (2007-11-22 20:03) [3]ну проста пауза в выполнение цикла во время которой можно при желании выйти из программы (закрыть окно).....
← →
Михаил С (2007-11-22 20:04) [4]условия нет просто на определенном этапе немного подаждать и продолжить...
← →
@!!ex © (2007-11-22 20:06) [5]
while not finished do begin
//
Application.ProcessMessages;
//
end;
...
OnButton:
finished:=true;
← →
Kolan © (2007-11-22 20:10) [6]> условия нет просто на определенном этапе немного подаждать
> и продолжить…
Используй таймер.
← →
Amoeba © (2007-11-22 22:39) [7]Все значительно проще.
Из библиотеки RX (VCLUtils.pas):procedure Delay(MSecs: Longint);
var
FirstTickCount, Now: Longint;
begin
FirstTickCount := GetTickCount;
repeat
Application.ProcessMessages;
{ allowing access to other controls, etc. }
Now := GetTickCount;
until (Now - FirstTickCount >= MSecs) or (Now < FirstTickCount);
end;
← →
Anatoly Podgoretsky © (2007-11-22 23:00) [8]> Amoeba (22.11.2007 22:39:07) [7]
Греем процессор. Да ему и не надо выдерживать паузу, он же хочет приостановить выполнение.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.12.16;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.06 c