procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
  d,t:TDateTime;
begin
  s:='2008-09-30 08:01:01';
  d:=StrToDateTime(s);
  t:=now;
  Memo1.Lines.Add('d='+DateTimeToStr(d));
  Memo1.Lines.Add('t='+DateTimeToStr(t));
  if d<t then Memo1.Lines.Add('d<t')
  else Memo1.Lines.Add('d>=t');end;结果是在memo1显示:
d=2008-9-30 8:01:01
t=2008-9-28 23:45:05
d>=t
======
d>=t???!!!这是什么回事?