/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/Clock.pas
12 строк
243 B
Бондарев Иван
bug fix #585
17 дек 2017, 14:40
17 дек 2017, 14:40
fb60f88
Код
Авторство
О чём код?
uses GraphWPF; begin Window.Title := 'Цифровые часы'; Font.Size := 180; while True do begin DrawText(Window.ClientRect,System.DateTime.Now.ToLongTimeString,Colors.Red); Sleep(1000); Window.Clear; end; end.