Сначала запоминаем время старта:
C:= Now;
Потом в любой момент времени время = (Now-C).
Т.к. тип TDateTime считает в сутках, то надо преобразовать в секунды (или форматирование, или *24*60*60
2. Если точность не нужна, то вызывается TTimer (1000 ms) и делается инкремент какого-нибудь счётчика.
|