Как сделать цикл зависимым от времени?

← →
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)

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

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