Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

DateTimePicker [D6, XP]

Kcor © (2007-01-10 13:55:00)
Скажите что не правильно, почему сообщение не показывается?

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

dr_craigan (2007-01-10 14:35:00) [1]

> if Now >= DateTimePicker1.Time then

ага

Ega23 (2007-01-10 14:30:00) [2]
if Now >= DateTimePicker1.Time then

evvcom (2007-01-10 14:27:00) [3]
> [6] Рамиль © (10.01.07 14:22)

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

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

Рамиль (2007-01-10 14:22:00) [4]
Вообще то надо сравнивать так
if abs(T - DateTimePicker1.Time) < Eps

Virgo_Style (2007-01-10 14:16:00) [5]
afaik, .Time возвращает полностью datetime, так что если целая часть (дата) не совпадет, то ничего и не произойдет

Anatoly Podgoretsky (2007-01-10 14:15:00) [6]
> Kcor (10.01.2007 13:55:00) [0]

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

Сергей М. (2007-01-10 14:03:00) [7]

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

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

Правильный Вася (2007-01-10 14:00:00) [8]
таймер-то включен?

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

Джо (2007-01-10 13:59:00) [9]
> T:= Time;

T := Now()?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »