在线等待:怎样比较当前的时间呀?(10分)

L

lovewh119

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-09

• #1

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if DateTimePicker1.Time=time then
showmessage('ok');
end;
我上面的写法不成功,谁能告诉我正确的,不过一定要用TDateTimePicker控件!

 

L

lovewh119

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-09

• #2

555`~没人告诉我`~自己UP一下先`~

 

A

Awen.ZW.Yang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-09

• #3

你要比较的是什么？
YYYY-MM-DD HH:MM:SS.000
日期?时间（时分秒微秒?时分秒?时分?）

 

L

lovewh119

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-09

• #4

我只比较HH:MM:SS就行了`~

 

L

lovewh119

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-09

• #5

我再UP

 

A

Awen.ZW.Yang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-09

• #6

if TimeToStr(Time) = TimeToStr(DateTimePicker1.Time) then
或者
if FormatDateTime('HH:MM:SS',DateTimePicker1.Time)=FormatDateTime('HH:MM:SS',Time) then

 

L

lovewh119

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-09

• #7

接受答案`~多谢你了`~

 

H

hfghfghfg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-09

• #8

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if DateTimePicker1.Time=time then
showmessage('ok');
end;

你居然用Timer

 

L

lovewh119

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-09

• #9

hfghfghfg,不用Timer的话,那你说用什么??