tickcount

Функция определения времени, прошедшего с момента запуска операционной системы.

Синтаксис:

time = tickcount;

Аргументы:

нет

Описание:

tickcount – функция определения времени, прошедшего с момента запуска операционной системы в миллисекундах. Может использоваться для подсчёта реальных временных интервалов.

Результат:

time – время в миллисекундах.

Пример:

var id: integer;      
initialization        
  //Установка идентификатора объекта для мигания
  id = findobjectbynametrans("FillRect");       
  stick = tickcount;                            
end;                                            
  //Мигание в течение заданного времени         
if id <> 0 then begin                           
  setvisible(id, flash(1000));                  
  if (tickcount – stick) > 5000 then begin      
    setvisible(id,1);                           
    id = 0;                                     
  end;                                          
end;                                            

В примере происходит установка мигания объекта с именем FillRect раз в секунду в течении 5с.

Сопутствующие материалы