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

Как сделать цикл зависимым от времени?   Найти похожие ветки 

← →
jeon1   (2005-07-22 19:53) [0]

Как сделать цикл зависимым от времени? То есть мне нужно, чтобы цикл выполнялся несколько секунд и выходил из него. На VB я это делал так:
 a = Timer()
 While Timer() - a < 3
   Print "bla-bla"
 Wend

Здесь цикл работает три секунды.
А как сделать тоже самое на делфи?

---

← →
DesWind ©   (2005-07-22 19:58) [1]

Тоже самое


starttime:=now;
while Now-starttime<deltatime do
begin
...
end;



---

← →
jeon1   (2005-07-22 20:09) [2]

спасибо. Очень помогли

---

← →
Alx2 ©   (2005-07-22 23:40) [3]

sleep(Ms)

---

← →
vers ©   (2005-07-23 00:13) [4]

Или еще GetTickCount. Но не забываем в цикле Application.ProcessMessages

---

Страницы: 1 вся ветка

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



Память: 0.45 MB
Время: 0.022 c