Скачать: CL | DM;

Время выполнения...   Найти похожие ветки 

← →
LordAlex   (2004-01-20 14:16) [0]

Помогите! Как сделать обратный отсчет выполнения дейсвия типа: "осталось до завершения - 0:12:00". (или подскажите где найти код)

---

← →
alex_*** ©   (2004-01-20 14:17) [1]

по таймеру

---

← →
LordAlex   (2004-01-20 14:19) [2]

как? в отдельных потоках?

---

← →
Тимохов ©   (2004-01-20 14:19) [3]

Воспользуся TTimer с интервалом 1 сек
в событии OnTimer

Label1.Caption := timetostr(StartTime+encodetime(0,12,0,0)-Time);

где StartTime равен времени начала процесса

---

← →
Семен Сорокин ©   (2004-01-20 14:20) [4]

LordAlex (20.01.04 14:19) [2]
как? в отдельных потоках?
зависит от задачи, или TTimer или TThread

---

← →
LordAlex   (2004-01-20 14:23) [5]

Спасибо! ))))

---

← →
Anatoly Podgoretsky ©   (2004-01-20 14:23) [6]

Label1.Caption := TimeToStr(EndTime-Now);

---

← →
Тимохов ©   (2004-01-20 14:28) [7]

Anatoly Podgoretsky © (20.01.04 14:23) [6]
Действительно, правильнее пользоваться Now, чем Time.

---

← →
Anatoly Podgoretsky ©   (2004-01-20 15:07) [8]

С Time можно попасть в нехорошее положение, при переходе через ноль. EndTime тоже должен получаться через EndTime с прибавлением времени длительности операции и естественно вне цикла.
Например для 30 секунд, это должно выглядеть так

EndTime := Now + StrToTime("00:00:30");

И еще в цикле таймера надо учитывать возможный переход через 0

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.017 c