|
——此文章摘自《Delphi开发经验技巧宝典》定价￥特价￥ 购买>> 在一些管理系统中有的是以文本框的形式作为录入日期时间的输入组件但是这样可能会不安全因为有的用户可能会将错误的日期格式录入到数据库中这样会给查询数据带来很多不便为了避免此问题的发生可以应用本技巧来判断用户所输入的字符串是否为日期或时间格式 程序运行结果如图所示 主要代码如下 procedure TFormButtonClick(Sender: TObject); var ip:Integer; a:array[] of Integer; begin a[]:=; a[]:=; a[]:=; a[]:=; a[]:=; a[]:=; a[]:=; a[]:=; a[]:=; a[]:=; a[]:=; a[]:=; if (Length(EditTAext)=)or(Length(EditText)=) then begin if Length(EditText)= then begin if StrToInt(Copy(EditText))> then begin if copy(EditText)=/ then begin if StrToInt(Copy(EditText))<= then begin LabelCaption:=是日期型字符串; if Copy(EditText)=/ then begin LabelCaption:=是日期型字符串; if StrToInt(Copy(EditText))> then begin p:=StrToInt(Copy(EditText)); if StrToInt(Copy(EditText))<=a[p] then LabelCaption:=是日期型字符串 else LabelCaption:=只是字符串; end else LabelCaption:=只是字符串; end else [] [] |
