DateTimePicker Delphi

[GAGARIN-NEW]

вот код
Чтото вроде будильника...

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if datetimepicker1.Time = time then showmessage('Совпадает');
end;

Почему не работает ? интервал у таймера 500 мс, datetimepicker1.kind=dtkTime . время на datetimepicker1 выставляю на полминуты больше чем текущее когда они совпадают ночего не происходит..

[Павлик]

Сообщение от GAGARIN-NEW

вот код
Чтото вроде будильника...

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if datetimepicker1.Time = time then showmessage('Совпадает');
end;

Почему не работает ? интервал у таймера 500 мс, datetimepicker1.kind=dtkTime . время на datetimepicker1 выставляю на полминуты больше чем текущее когда они совпадают ночего не происходит..

time я так понимаю типа TDateTime? тобиш Double, из приведенного кода сложно поянть чего ты хочешь, попробуй так

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if datetimepicker1.Time >= time then showmessage('Совпадает');
end;

[Cantana]

time разве не системная время ?

[Stilet]

Если уж совсем неполучается то можно пойти боком:

procedure TForm1.Timer1Timer(Sender: TObject);
var a,b:string;
begin
 a:=TimeToStr(DateTimePicker1.Time);
 b:=TimeToStr(Time);

 caption:=a+' '+b;
 if a=b then ShowMessage('');
end;

[pu4koff]

таймер не точно работает вапще-то и в Time записываеца кажеца с долями секунд, так что я сомневаюсь что большой шанс совпадения времени есть. Так что или >= или еще как проверять надо

[GAGARIN-NEW]

Люди ведь и текущий time и time в datetimepicker переменные одного и тогоже типа !
2 Stilet Сэнкс но это я и сам делал только вот это меня и возмутило!!!
Showmessage('!'+TimeToStr(Time)+'!' );показывает чтото вроде !12:53:03!
восклицательные знаки я поставил чтобы проверить может быть есть ещё какието знаки до или после самого времени...
но как выяснилось нету вроде.. так почемуже несовпадает ? а нужно тупо переводить в стринг и потом сравнивать ???

[pu4koff]

в TDateTime для времени хранятся: час, минута, секунда, миллисекунда. Замени TimeToStr на FormatDateTime('h:n:s:z',сюда время пихаешь) и афигей, что у тебя миллисекунды не совпадают просто, соответственно у тебя сообщение и не вылазит. а функцией TimeToStr ты просто милисекунды не учитываешь, а сравнение идет уже как сравнение строк

[GAGARIN-NEW]

Сообщение от pu4koff

в TDateTime для времени хранятся: час, минута, секунда, миллисекунда. Замени TimeToStr на FormatDateTime('h:n:s:z',сюда время пихаешь) и афигей, что у тебя миллисекунды не совпадают просто, соответственно у тебя сообщение и не вылазит. а функцией TimeToStr ты просто милисекунды не учитываешь, а сравнение идет уже как сравнение строк

На счёт сравнения строк я знаю !
Но вот почемуже милисекунды при TimeToStr не учитываются ??? минуты значит нам нада секунды тоже часы ... а милисекунды что ? вот разработчики канечно потрудились на славу ...

Придётся теперь всё переводить в строчки ...