Форум: "Потрепаться";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Вниз

Вопрос по таймеру 


shane54   (2002-03-22 18:45) [0]

Текущее время - TimeToStr(time).
Вопрос: а как вывести время с момента какого-либо события? Например с момента нажатия кнопки?



Barmutik   (2002-03-22 19:08) [1]

Запомни теукщее время в переменную TDateTime а потом когда
нужно из текущего вычти то что запомнил.

Правда если время перешло уже на новые сутки то получится не
совсем корректно.



shane54   (2002-03-22 19:12) [2]

Я именно в этом направлении и думал, но было лень проверять без помощи Мастров.
Сейчас проверю....



shane54   (2002-03-22 19:19) [3]

Проверил. Работает, но не то.
Мне нужно, чтобы на экране было показано время (с секундами), и оно бы шло вперед. Т.е. например, идет время текущее и время, считающее точкой отсчета 0 (точнее время какого-то события, которое как бы обнулило счетчик времени).



panov   (2002-03-22 19:31) [4]

Ну ты наглый тип, однако.



VID   (2002-03-23 02:27) [5]

//Глобальная переменная
Var EventTime : TTime;

//Присвоение значения глобальной переменной
Procedure TFORM1.Button1click(...);
begin
EventTime := Time;
end;

//И процедура таймера
Procedure TForm1.Timer1OnTimer(...);
begin
//Отображаем текущее время
Label1.caption := TimeToStr(Time);

//Отображаем особое время
Label2.caption := TimeToStr(TIME - EventTime)

end;

Но учти, что если при работе проги, произойдёт смена суток, то данные будут ошибочны.. Для решения этой проблемы, тебе так же надо будет фиксировать ДАТУ особого момента, и каждую секунду определять текущую дату (DATE). Если текущая дата <> зафиксированной, то надо что-то делать. А вот что - вопрос :)))



Есть мнение,   (2002-03-23 02:51) [6]

что ели бы,
panov © (22.03.02 19:31) не флейманул, то и ответа "VID © (23.03.02 02:27)" не было бы.
Так что "shane54 © " должен выразить особую благодарность "panov"!



Anatoly Podgoretsky   (2002-03-23 11:51) [7]

shane54 © (22.03.02 19:12)
Знаешь чем лень кончается в конференциях?

shane54 © (22.03.02 19:19)
Расчитываешь на наши телепатические способности, спасибо лестно

Есть мнение, (23.03.02 02:51)
Спасибо то спасибо, но пример весьма ущербный, приведу более качественный.


//Глобальная переменная
Var
EventTime : TDateTime;

//Присвоение значения глобальной переменной
Procedure TFORM1.Button1click(...);
begin
EventTime := Now;
end;

//И процедура таймера
Procedure TForm1.Timer1OnTimer(...);
begin
Label1.caption := IntToStr(Trunc(Now - EventTime) + " дней " + TimeToStr(Now - EventTime);
end;



VID   (2002-03-23 13:07) [8]

To Anatoly Podgoretsky : Действительно лучше, возьму, так сказать, на вооружение :)




Форум: "Потрепаться";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.036 c
7-94576           Great                 2002-01-26 22:03  2002.04.29  
Программа блокирует Shutdown,Restart и Logoff в Win XP


6-94528           Lenidus               2002-02-17 14:10  2002.04.29  
Чем заменить компонент TWebBrowser?


4-94636           dlK                   2002-02-26 09:39  2002.04.29  
Помогите, нажать Ctrl+Alt+Del нужно ...


1-94394           SPeller               2002-04-16 11:59  2002.04.29  
Асинхронные процедуры


1-94518           asdf                  2002-04-16 14:34  2002.04.29  
Признак работы Delphi