Книга: Описание языка PascalABC.NET

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

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

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

uses Timers;
procedure TimerProc;
begin
write(1);
end;
begin
var t := new Timer(100,TimerProc);
t.Start;
Sleep(3000);
end.

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

----

Оглавление книги


Генерация: 1.158. Запросов К БД/Cache: 3 / 1
поделиться
Вверх Вниз