Отправлено Voldemar 14 октября 2001 г. 21:14 В ответ на: Вопрос про задержки в Делфи(+) отправлено Altair 14 октября 2001 г. 20:28

var
  Interval, Time0: TDateTime;
   
begin
  Interval:=EncodeTime( 0,0,15,0); // 0 часов,0 минут, 15 секунд,0 мс
  Time0 := Time;
  While(Time - Time0) < Interval do ProcessMessages; //крутимся в цикле
                                  //обрабатывая сообщения,
                                  //пока текущее время не станет на
                                  //15 с больше начального
end;

А можно задействовать стандартный компонент Timer.

• Ответ: — John   (15.10.2001 08:29, 246 байт)