Главная страница
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.016 c
1-2175
Sergey B
2004-01-20 23:43
2004.02.02
Не работают процедуры...


3-2044
Владий
2004-01-05 16:43
2004.02.02
Как 3 запроса с одинаковой структурой совместить в 1


3-2004
Veetoyk
2004-01-10 13:07
2004.02.02
Объясните пожалуйста, ......


3-2015
Sharker
2004-01-09 21:01
2004.02.02
Как подключаться к MS-SQL server в интернете?


7-2390
DJ Vano
2003-10-12 15:54
2004.02.02
Кнопки и папки