16 lines
353 B
ObjectPascal
16 lines
353 B
ObjectPascal
// Ðàáîòà ñ êëàññîì System.DateTime
|
|
// Âû÷èñëåíèå âðåìåíè âûïîëíåíèÿ ôðàãìåíòà êîäà
|
|
|
|
uses System, PABCSystem;
|
|
|
|
var dt: DateTime := DateTime.Now;
|
|
|
|
begin
|
|
// Äåëàåì ñëó÷àéíóþ ïàóçó
|
|
var ms := Random(1000);
|
|
Writeln('Sleep','(',ms,')');
|
|
Sleep(ms);
|
|
|
|
// Ñðàâíèâàåì ñ ïîêàçàíèÿìè DateTime.Now
|
|
Writeln((DateTime.Now-dt).TotalMilliseconds,'ms');
|
|
end. |