Таймер обратного счета

[service]

Подскажите, как реализовать такой алгоритм:
-механизм включается через время T1 на время Т2. Времена Т2 и Т1 задаюся(это реализовал).После отключения нужно показывать сколько осталось до следующего вкючения(обратный отсчет Т1)

[capzap]

ну что то вроде tp.PT - tp.ET

[Sergey666]

Tmr_tik1s(In:=not Tmr_tik1s,Pt:=t#1s);
if Tmr_tik1s.Q then
T:=T-1;
end_if

[service]

Если Т типа TIME то ничего не выйдет

[capzap]

так то есть преобразования TIME_TO_DWORD и обратно

[Валенок]

Если Т типа TIME то ничего не выйдет

..
T:=T - Tmr_tik1s.PT
..

[Dimooon]

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

[amn]

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

Есть не библиотечное решение

[Dimooon]

я эту миниатюру нарисовал, в переменной "T" выставил 15000 ms (15 сек). Он в обратно считает, но дробными числами в переменной "count". А мне надо на панель ип 320 обратный отсчет в секундах отобразить

[Василий Кашуба]

я эту миниатюру нарисовал, в переменной "T" выставил 15000 ms (15 сек). Он в обратно считает, но дробными числами в переменной "count". А мне надо на панель ип 320 обратный отсчет в секундах отобразить

Преобразуйте реал в целочисленные.