Форум: "Потрепаться";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];
ВнизВопрос по таймеру Найти похожие ветки
← →
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). Если текущая дата <> зафиксированной, то надо что-то делать. А вот что - вопрос :)))
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.006 c