Пример использования таймера

Пример использования таймера

Данная программа выводит 1 каждые 100 миллисекунд в течение 3 секунд:

uses Timers;

procedure TimerProc;

begin

write(1);

end;

begin

var t := new Timer(100,TimerProc);

t.Start;

Sleep(3000);

end.

Вызов Sleep здесь обязателен, иначе программа после создания таймера сразу закончится, и обработчик таймера ни разу не сработает.