Цитата:
|
Сообщение от angvelem
Примерно тоже, что предложил lmikle, только ещё на секунды разобрать нужно.
Код:
var
Ms : Int64;
procedure Timer1Timer(Sender: TObject);
begin
Ms := MilliSecondsBetween(Now - EncodeDateTime(1970,1,1,0,0,0,0));
end;
этот вариант lmikle, для начинающих проще. |
также выдает ошибку [Error] Unit1.pas(35): Not enough actual parameters
ругается на Ms := MilliSecondsBetween(Now - EncodeDateTime(1970,1,1,0,0,0,0));