高考问答遗忘之地遗忘水晶戒子:delphi 中如何比较time
来源：百度文库 编辑：高考问答 时间：2024/04/29 18:33:53
窗口启动时候，用delphi中的 Tdatetimepicker 控件获得当前时间如：13：00：00，怎么比较按下按钮时候，比较Tdatetimepicker 中的设置时间和系统时间的比较？
procedure TForm1.Button1Click(Sender: TObject);
begin
if timer1.time-time()>=0 then
showmessage('设置时间小于当前时间！');
end;
按下去怎么好象都不行的！
procedure TForm1.Button1Click(Sender: TObject);
begin
if tdatetime.time-time()<0 then
showmessage('设置时间小于当前时间！');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if timer1.time-time()>=0 then
showmessage('设置时间小于当前时间！');
end;
按下去怎么好象都不行的！
procedure TForm1.Button1Click(Sender: TObject);
begin
if tdatetime.time-time()<0 then
showmessage('设置时间小于当前时间！');
end;
先把时间格式化了再比较!
比如先全部格式化成一种格式,或格式化成整形变量,然后再比较!