Текущий архив: 2004.02.02;
Скачать: 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 вся ветка
Текущий архив: 2004.02.02;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.021 c
