[Snik11]

Здравствуйте. Столкнулся с такой проблемой. имеется код на JS, который отсчитывает миллисекунды с 1 января 1970 года и до момента нажатия на кнопку. Хотелось бы узнать, как такой же код написать на Delphi...

var time=new Date().getTime() ; // код на JS


P.S. бьюсь уже 4й день, никак не могу понять...
если можно, то с комментариями к коду...

[angvelem]

Можно в таймере использовать Time.

[Snik11]

Сообщение от angvelem

Можно в таймере использовать Time.

а можно поточнее? просто я в делфи новичек, хотелось бы разобраться...

[angvelem]

Примерно тоже, что предложил lmikle, только ещё на секунды разобрать нужно.

Код:

var
  Ms : Int64;

procedure Timer1Timer(Sender: TObject);
begin
  Ms := MilliSecondsBetween(Now, EncodeDateTime(1970,1,1,0,0,0,0));
end;

этот вариант lmikle, для начинающих проще.

[Snik11]

Сообщение от 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));

[angvelem]

У меня другое написано.
Ты неправильно вопрос поставил, объясни что хочешь получить.

[lmikle]

Ну, если тупо, то примерно так:

Код:

uses DateUtils;

var
  ms : Int64;
begin
  ms := MilliSecondsBetween(Now() - EncodeDateTime(1970,1,1,0,0,0,0));

Дает с точностью до милисекунды

[Snik11]

Спасибо, сейчас попробую!!!

[Snik11]

Сообщение от lmikle

Ну, если тупо, то примерно так:

Код:

uses DateUtils;

var
  ms : Int64;
begin
  ms := MilliSecondsBetween(Now() - EncodeDateTime(1970,1,1,0,0,0,0));

Дает с точностью до милисекунды

выдает ошибку
[Error] Unit1.pas(30): Not enough actual parameters


ругается на ms := MilliSecondsBetween(Now() - EncodeDateTime(1970,1,1,0,0,0,0));