16,748
社区成员
发帖
与我相关
我的任务
分享
function CheckDateString(sTemp: String): Boolean;
var
dTemp : TDateTime;
begin
try
dTemp := StrToDate(sTemp);
Result := True;
except;
Result := False;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Temp : String;
begin
Temp := '2006-6-31';
if CheckDateString(Temp) then
ShowMessage ('可以转换成日期型')
else
ShowMessage ('不可以转换成日期型');
end;