No.1 不建议
  ShortDateFormat := 'yyyy-mm-dd';
  if ADOTable1.FieldByName('ram').AsString > '2002-05-09' then
    { TODO }No.2 建议//如果是Delphi6建议//StrToDateDef('2002-05-09', 0)
  if ADOTable1.FieldByName('ram').AsDateTime > StrToDate('2002-05-09') then
    { TODO }

解决方案 »

  1.   

    No.1 不建议
      ShortDateFormat := 'yyyy-mm-dd';
      if ADOTable1.FieldByName('ram').AsString > '2002-05-09' then
        { TODO }No.2 建议//如果是Delphi6建议//StrToDateDef('2002-05-09', 0)
      if ADOTable1.FieldByName('ram').AsDateTime > StrToDate('2002-05-09') then
        { TODO }
      

  2.   

    No.1 不建议
      ShortDateFormat := 'yyyy-mm-dd';
      if ADOTable1.FieldByName('ram').AsString > '2002-05-09' then
        { TODO }No.2 建议//如果是Delphi6建议//StrToDateDef('2002-05-09', 0)
      if ADOTable1.FieldByName('ram').AsDateTime > StrToDate('2002-05-09') then
        { TODO }