Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 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 : Действительно лучше, возьму, так сказать, на вооружение :)



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

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

Наверх




Память: 0.46 MB
Время: 0.006 c
6-94530
ctapik-net
2002-02-14 15:53
2002.04.29
Определениие списка компьютеров в сети.


3-94319
iva
2002-04-09 13:30
2002.04.29
Как добавить поле


14-94571
Nikolay
2002-03-21 18:26
2002.04.29
Не совсема понимать :)


6-94533
Delphir
2002-02-13 16:30
2002.04.29
IdSMTP - HELP!!! 2


14-94562
Лана Розанова
2002-03-24 11:20
2002.04.29
InstallShieldExpress для Delphi5





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский