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

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

uses Timers;

procedure TimerProc;
begin
  write(1);
end;


begin
  var t := new Timer(100,TimerProc);
  t.Start;
  Sleep(3000);
end.

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

previous page start next page