如何检查DBedit中输入的字符是否符合规定

Question

各位大虾帮帮忙啊,我用一个DBedit里输入日期然后保存到数据库里面去,要怎么检查输入的日期是否符合日期的规定呢?(例如日期格式2008-1-1)

Answer 1

procedure TForm1.Button3Click(Sender: TObject);
var
v:TDateTime;
begin
 if TryStrToDate(DBEdit1.Text,v) then
   DBEdit1.Text:=FormatdateTime('YYYY-MM-DD',v)
 else begin
   showmessage('无效的日期,请重新输入');
   DBEdit1.SetFocus;
   DBEdit1.SelectAll;
 end;
end;

Answer 2

哎呀,格式是2008-1-1,修正:procedure TForm1.Button3Click(Sender: TObject);
var
v:TDateTime;
begin
 if TryStrToDate(DBEdit1.Text,v) then
   DBEdit1.Text:=FormatdateTime('YYYY-M-D',v)
 else begin
   showmessage('无效的日期,请重新输入');
   DBEdit1.SetFocus;
   DBEdit1.SelectAll;
 end;
end;