Скачать: CL | DM;

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

← →
Kcor   (2007-01-10 13:55) [0]

Скажите что не правильно, почему сообщение не показывается?

procedure TForm1.Timer1Timer(Sender: TObject);
var
 T: TDateTime;
begin
 T:= Time;
 if T = DateTimePicker1.Time then
   ShowMessage("fuck");
end;

---

← →
Джо ©   (2007-01-10 13:59) [1]

> T:= Time;

T := Now()?

---

← →
Правильный Вася   (2007-01-10 14:00) [2]

таймер-то включен?

а протрассировать в отладчике?

---

← →
Сергей М. ©   (2007-01-10 14:03) [3]

> почему сообщение не показывается?


Потому что условие T = DateTimePicker1.Time ложно

---

← →
Anatoly Podgoretsky ©   (2007-01-10 14:15) [4]

> Kcor  (10.01.2007 13:55:00)  [0]

Покажется, если повезет.
Нельзя проводить точное сравнение для чисел с плавающей запятой.

---

← →
Virgo_Style ©   (2007-01-10 14:16) [5]

afaik, .Time возвращает полностью datetime, так что если целая часть (дата) не совпадет, то ничего и не произойдет

---

← →
Рамиль ©   (2007-01-10 14:22) [6]

Вообще то надо сравнивать так
if abs(T - DateTimePicker1.Time) < Eps

---

← →
evvcom ©   (2007-01-10 14:27) [7]

> [6] Рамиль ©   (10.01.07 14:22)

это для бесконечно приближающегося ряда T к DateTimePicker1.Time, а в случае с Time, Now и т.п. получится

> [4] Anatoly Podgoretsky ©   (10.01.07 14:15)
> Покажется, если повезет.

---

← →
Ega23 ©   (2007-01-10 14:30) [8]

if Now >= DateTimePicker1.Time then

---

← →
dr_craigan   (2007-01-10 14:35) [9]

> if Now >= DateTimePicker1.Time then


ага

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.029 c