/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/NETLibraries/System.Timers.Timer/SystemTimer.pas
33 строки
697 B
Mikhalkovich Stanislav
Примеры - устранил неточности
04 янв 2025, 14:44
04 янв 2025, 14:44
c2347e6
Код
Авторство
О чём код?
//События, +=, -=, демонстрация работы таймера System.Timers.Timer uses System; var Timer: System.Timers.Timer; x: integer; exit: boolean; procedure OnTimer2(sender: object; e: System.Timers.ElapsedEventArgs); begin Writeln(x); x := x + 1; exit := x >= 10; end; procedure OnTimer1(sender: object; e: System.Timers.ElapsedEventArgs); begin Writeln(e.SignalTime); x := x + 1; if x >= 5 then begin Timer.Elapsed -= OnTimer1; Timer.Elapsed += OnTimer2; end; end; begin Exit := false; Timer := System.Timers.Timer.Create(1000); Timer.Elapsed += OnTimer1; Timer.Start; while not exit do Sleep(Round(Timer.Interval)); end.