11 lines
330 B
ObjectPascal
11 lines
330 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. |