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 }
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 }
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 }
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 }