Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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
14-2271
RDA
2004-01-13 17:35
2004.02.02
Вопрос по геодезии


14-2329
HakoLamer
2004-01-10 14:13
2004.02.02
SQL UPDATE - курсовик ГОРИТ!!!!!!!!!!!!


1-2095
Floppy
2004-01-20 08:36
2004.02.02
Как определить, кем запущено приложение, непосредственно


3-1987
Юля П
2004-01-08 16:00
2004.02.02
Запрос с группировкой записей


3-1981
keymaster
2004-01-06 16:20
2004.02.02
Обращение к 2м базам в 1 запросе