/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/Timer1.pas
21 строка
244 B
Бондарев Иван
initial commit
14 май 2015, 22:35
14 май 2015, 22:35
e6e67c1
Код
Авторство
О чём код?
Uses Timers; var t1, t2: Timer; procedure OnTimer1; begin Write('!'); end; procedure OnTimer2; begin Write('?'); end; begin t1 := new Timer(200, OnTimer1); t2 := new Timer(300, OnTimer2); t1.Start; t2.Start; Sleep(10000); end.