Timer

[nattaella]

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

Сначала пробовала функцию sleep(2000); но он не задерживает, а блокирует работу программы. А таймер актуален только при повторении с каким-то интервалом какого-то участка кода. Что мне нужно сделать?

 

[Dock1100]

Один из самых простых способов, :

var time:Cardinal;
begin
//процедура 1
time:=gettickcount;
while gettickcount-time<=2000 do 
application.ProcessMessages;//насколько я знаю : обработка сообщений виндовс, на самом деле это конечно не так, но примерный смысл такой.
//процедура 2
end;