/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/SystemTimer.pas
31 строка
664 B
Artem Pelenitsyn
change encoding for all *.pas and *.cs files: cp1251 -> utf-8
28 дек 2015, 14:25
28 дек 2015, 14:25
49378a6
Код
Авторство
О чём код?
//События, +=, -=, демонстрация работы таймера 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.