如何判断一个TEdit中输入的是一个日期（必须包括年月日时分秒）型的数据，不然不符合要求！

Question

rt

Answer 1

function CheckAvailable () : boolean;
begin
  Result := true;
  try
    StrToDateTime (edit1.Text);
  except on E : Exception do
    Result := false;
  end;
end;

Answer 2

那你可以用日期/时间控件呀，如TDateTimePciker

Answer 3

function CheckAvailable () : boolean;
var sdate,stime: string
begin
  Result := true;
  sdate:=copy(edit1.text,1,Pos(' ',input.text)-1);
  stime:=copy(edit1.text,Pos(' ',input.text),length(input.text)-Pos(' ',input.text)+1);
  try
    StrToDate(sdate);
    StrToTime(stime);
  except on E : Exception do
    Result := false;
  end;
end;

Answer 4

如果你不想写判断代码的话，就用maskedit

Answer 5

用现成的maskedit不好吗,非要写语句去判断呀?

Answer 6

try
      StrToDate(Edit1.Text);
  except
      ShowMessage('请输入正确的日期类型');
  end;想要限制  1982-1-1 12:00:00 那就判断长度。 应该就可以了。