/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/Graphics/GraphABC/DigitalClock.pas
14 строк
344 B
Бондарев Иван
initial commit
14 май 2015, 22:35
14 май 2015, 22:35
e6e67c1
Код
Авторство
О чём код?
uses GraphABC,System; begin Font.Size := 80; var x0 := (Window.Width - TextWidth('00:00:00')) div 2; var y0 := (Window.Height - TextHeight('00:00:00')) div 2; while True do begin var t := DateTime.Now; var s := string.Format('{0:d2}:{1:d2}:{2:d2}',t.Hour,t.Minute,t.Second); TextOut(x0,y0,s); Sleep(1000); end; end.