在stringgrid单元格中输入日期 怎样判断是否能转换为日期变量

Question

在stringgrid单元格中输入日期  
 然后要保存在数据库中怎样判断是否能转换为日期变量

Answer 1

procedure TDisplayMasterSearch.LISTNotUsePartsCellValidate(Sender: TObject;
  ACol, ARow: Integer; var Value: String; var Valid: Boolean);
begin
        if (acol=14) then
         try
            begin
             strtodatetime(LISTNotUseParts.cells[14,arow]);
             showmessage('ok')  ;
            end;
          except
             showmessage('error');
           end;
end;end.
 运行会出现 .... EconvertError   "20030102"is not a valid date and time  点击确定后  显示 error  20030102 会出现在stringGrid中   

Answer 2

也可以用strtodatetimedef（str：sting；const default：tdatetime）
函数作用，如果str转换datetime成功，则返回转换值，否则返回default值。
可以根据是否返回default值就可以判断是否转换成功！
这样从代码角度要简单些。
你觉得呢？