Секундомер

[aesoem]

Как сделать чтобы наращивались секунды через компанент Timer ? Я делал так

var
time:Integer;
begin
var:=var+1
End;

И мне после включения срузу же что то типа этого 5458924 (это я просто так набрал цифры другие были).

[Stilet]

Наращивались на кого? Чьи секунды?

[BOBAH13]

Используйте GetTickCount, или функцию now для сравнения

[chingiz]

объявляем глобальную переменную например
var I : int64;

Timer.interval:=1000;

далее в событии OnTimer пишем
I:=I+1;

[BOBAH13]

Это не самый точный метод...

[chingiz]

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

Это не самый точный метод...

Я сам задавал типа подобный вопрос на нашем форуме и совсем недавно, для себя я уже нашел более менее приемлемое решение, но пока не отработал его, потом скажу к чему пришел в своем топике. Что касается данного вопроса то интервал в одну секунду TTimer выдерживает точно, ну а что касается интервалов менее секунды то прошу сюда http://www.programmersforum.ru/showthread.php?t=12132

[chingiz]

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

Используйте GetTickCount, или функцию now для сравнения

Не подскажешь где найти описание этих функций? Ну GetTickCount это вроде бы API, а что за функция "now"?

[BOBAH13]

now: TDateTime; просто double в котором хранится текущая дата... работать с ним можно спокойно в object pascal. GetTickCount - вот именно вызовом этой функции через промежуток времени можно определять сколько прошло ммсек.

[chingiz]

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

Я делал так
var
time:Integer;
begin
var:=var+1
End;

Только сейчас дошло, но ведь Var это служебное слово и запись типа var:=var+1 совсем не допустима в принципе.

[Christoph]

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

now: TDateTime; просто double в котором хранится текущая дата... работать с ним можно спокойно в object pascal. GetTickCount - вот именно вызовом этой функции через промежуток времени можно определять сколько прошло ммсек.

Можешь написать какие параметры у функции GetTickCount, это искал не смог найти