Получить текущий обратный отсчёт таймера

[Shouldercannon]

Доброго времени суток!
Можно ли как-нибудь подлезть к таймеру и получить оставшееся количество секунд до срабатывания? Или можно это сделать только так?

procedure TForm1.Timer1Timer(Sender: TObject);
var
  sec, min: Integer;
begin
  dec(i);
  min := i div 60;
  sec := i mod 60;

  Label1.Caption := IntToStr(min) + ' минут ' + IntToStr(sec) + ' секунд';
  if i = 0 then i := 60;
end;

[Аватар]

Не понял. В обработчике таймера узнать сколько осталось до срабатывания? Так он уже сработал

[Stilet]

Можно ли как-нибудь подлезть к таймеру и получить оставшееся количество секунд до срабатывания?

А зачем если не секрет?

[Shouldercannon]

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

А зачем если не секрет?

Есть задача узнать сколько осталось до конца отсчёта.
Если простых путей нет, то придётся использовать код приведённый в первом посте.

Сообщение от Аватар

Не понял. В обработчике таймера узнать сколько осталось до срабатывания? Так он уже сработал

Производить опрос таймера, например, по кнопке.

[min@y™]

Храни время в глобальной переменной, высчитав его один раз, а сколько осталось - это разность этого времени и текущего времени в данный момент. юзать можно gettickcount(), например, или now().

Компонент TTimer здесь вообще ни при чём.

[StriderX]

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

Есть задача узнать сколько осталось до конца отсчёта.
Если простых путей нет, то придётся использовать код приведённый в первом посте.

Мягко говоря не совсем понятно кто что и зачем отсчитывает.
В рамках винды есть шикарная штука GetTickCount. Какие-то там миллисекунды себе считает и считает. Используя её, можно запомнить
начало некоего отсчета:

MyEventCountdownStart := GetTickCount()

Теперь достаточно просто узнать сколько прошло времени с начала отсчета:

Delta := GetTickCount - MyEventCountdownStart

Соответственно, если мы выбрали место, которое отслеживает это самое время, то можно генерировать и само событие:

if (MyEventCountdownEnabled) then
if (GetTickCount > MyEventCountdownStart + EVEN_START_DELAY) then begin
    EventCall(SomeParams);
    MyEventCountdownEnabled := False;
end;

А можно узнать сколько осталось до конца чего-нибудь:

if (GetTickCount <= MyEventCountdownStart + EVEN_START_DELAY) then begin
    Estimated := EVEN_START_DELAY - (GetTickCount - MyEventCountdownStart); 
end else begin
    Estimated := 0;
end;

Единственное, что вы должны обеспечить - это согласованность кода с самим собой, его когеренетность. У вас не должно быть путешествий во времени. Один из механизмов обеспечения: строгая фиксация времени в пределах вычислительного кадра\фрейма. То есть на всю программу только в одном месте записывается CURTIME := GetTickCount. Остальные части кода считают CURTIME константой (теперь вы должны сходу найти выше грубейшую ошибку).

[StriderX]

Сообщение от min@y™

Храни время в глобальной переменной, высчитав его один раз, а сколько осталось - это разность этого времени и текущего времени в данный момент. юзать можно gettickcount(), например, или now().

Компонент TTimer здесь вообще ни при чём.

У программиста была проблема, потом он решил использовать числа с плавающей точкой и у него теперь 1.99999999999999999997 проблемы %)
Now может сильно расстраивать неискушенных людей, особенно если какая-нибудь зараза перещёлкнет сопроцессор в режим одинарной точности. В этом смысле лучше компоненты времени получать раздельно - GetTime\GetDate, или что там было =-)

[Shouldercannon]

Ещё точнее. Есть таймер с интервалом 5 минут. Через 5 минут происходит какое-то действие. Хочу подлезть к этому таймеру и узнать сколько ему осталось отсчитывать до 5 минут.

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 300000;
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // Something
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Сколько осталось до конца отсчёта или сколько натикал Timer1 и выполнения действия');
end;

Вывод: Таймер так не умеет, он только уведомляет. GetTickCount в помощь

[northener]

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

Ещё точнее. Есть таймер с интервалом 5 минут. Через 5 минут происходит какое-то действие. Хочу подлезть к этому таймеру и узнать сколько ему осталось отсчитывать до 5 минут.

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 300000;
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // Something
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Сколько осталось до конца отсчёта или сколько натикал Timer1 и выполнения действия');
end;

Вывод: Таймер так не умеет, он только уведомляет. GetTickCount в помощь

Точнее TTimer так не умеет. И ничего удивительного. Дельфийский компонент TTimer всего лишь "пустышка". Оболочка над таймером Windows. Но и к таймеру Windows так просто не подлезешь. Вот в драйвере нулевого кольца - пожалуйста. Получишь сколько осталось времени до сработки таймера.