11 lines
379 B
ObjectPascal
11 lines
379 B
ObjectPascal
// Stopwatch - класс высокоточного таймера (с точностью до 0.001 с)
|
||
begin
|
||
var stopWatch := new System.Diagnostics.Stopwatch;
|
||
stopWatch.Start;
|
||
|
||
Sleep(123);
|
||
|
||
stopWatch.Stop;
|
||
var ts := stopWatch.Elapsed;
|
||
writelnFormat('Время работы: {0:00}:{1:00}:{2:00}.{3:000}',ts.Hours, ts.Minutes, ts.Seconds, ts.Milliseconds);
|
||
end. |