Скачать: CL | DM;

приостановить выполнение программы   Найти похожие ветки 

← →
Михаил С   (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]

> условия нет просто на определенном этапе немного подаждать
> и продолжить&#133

Используй таймер.

---

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c