Ticks64: Decimal;
The Ticks64 property returns the number of milliseconds since the operating system startup on the long work.
The returned value is limited by the 1.84467441 * 10^19 value. This value enables the user to take the count of system work during many years.
Class MyTimer: Object
tStart, tStop, Time: Decimal;
Public Constructor Create;
Begin
tStart := DateTime.Ticks64;
End Constructor Create;
Public Function GetTime: Decimal;
Begin
tStop := DateTime.Ticks64;
Time := tStop - tStart;
Return (Time / 1000);
End Function GetTime;
End Class MyTimer;
The specified class enables the user to register object lifetime. The countdown starts from the moment of class object creation. Object lifetime in seconds is returned by the GetTime function.
See also: