Текущий архив: 2007.01.28;
Скачать: 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 вся ветка
Текущий архив: 2007.01.28;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.056 c
