Timer

  • Автор темы nattaella
  • Дата начала
Статус
Закрыто для дальнейших ответов.
N

nattaella

#1
у меня есть две процедуры, перерыв между которыми должен быть 2 секунды:
procedure 1;
sleep(2000);
procedure 2;

Сначала пробовала функцию sleep(2000); но он не задерживает, а блокирует работу программы. А таймер актуален только при повторении с каким-то интервалом какого-то участка кода. Что мне нужно сделать?
 
09.11.2009
665
1
#2
Один из самых простых способов, :
Код:
var time:Cardinal;
begin
//процедура 1
time:=gettickcount;
while gettickcount-time<=2000 do 
application.ProcessMessages;//насколько я знаю : обработка сообщений виндовс, на самом деле это конечно не так, но примерный смысл такой.
//процедура 2
end;
 
Статус
Закрыто для дальнейших ответов.