Текущий архив: 2003.09.01;
Скачать: CL | DM;

Вниз

TTimer   Найти похожие ветки 

← →
cjiohobaji ©   (2003-08-12 13:24) [0]

Почему то второй раз таймер, не запускается, Edit2 так и остаЁтся неизменным?? В чём дело? Кто знает?
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
TDateTime T;
AnsiString s;
T = T.CurrentDateTime();
s = T.TimeString();
Edit3->Text = s;
if (s == "16:01:11") {
Edit1->Text = s;
ShowMessage(s);
}
else if (s == "16:01:23") {
Edit2->Text = "16:01:23";
ShowMessage("call2");
}

}

---

← →
Плохиш_   (2003-08-12 13:33) [1]

Хм, странный у тебя паскаль, однако

---

← →
wl ©   (2003-08-12 13:42) [2]

to Плохиш_ (12.08.03 13:33) [1] :
Это Билдер

to cjiohobaji © (12.08.03 13:24)
У меня всё работает

---

← →
han_malign ©   (2003-08-12 13:49) [3]

>s == "16:01:23"
- а кто сказал, что одно из событий таймера произойдет ровно в 16:01:23? Учитывая, что очередь событий таймера может и подзадержаться... (проверять надо все таки диапазон, или переход границы, но никак ни эквивалентность, Windows - далеко не система реального времени)

---

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

Текущий архив: 2003.09.01;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.019 c