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

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

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

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

if Now >= DateTimePicker1.Time then

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

> if Now >= DateTimePicker1.Time then

ага

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