（新手问）请问如何在点击按钮时来判断一个EDIT里输入的内容是否为年年年年-月月-日日？？

Question

请问如何在点击按钮时来判断一个EDIT里输入的内容是否为年年年年-月月-日日，出一个提示信息从重新输入。谢谢~~~~~

Answer 1

try
  StrToDate(Edit1.Text);
except
  ShowMessage('Error. try again');
  Edit1.SetFocus
end;

Answer 2

或者用MaskEdit，设定输入格式

Answer 3

var
  value: TDatetime;
begin
  if not tryStrToDate(edit1.Text, value) then
    ShowMessage('error');

Answer 4

try
  StrToDate(Edit1.Text);
except
  ShowMessage('格式不对,请重新输入');
  Edit1.SetFocus
end;

Answer 5

上面的方法用过了，不符合要求，你们试一下，我如果只输入一个年，不输入月份和日期，他不回报错，但是显示出来的却是XXXX-1-1，比如我只输入2004，他就会认为是对的，而显示2004-01-01。