|
——此文章摘自《Delphi开发经验技巧宝典》定价￥特价￥ 购买>> LabelCaption:=只是字符串; end else LabelCaption:=只是字符串; end else LabelCaption:=只是字符串; end else LabelCaption:=只是字符串; end; if Length(EditText)= then begin if StrToInt(Copy(EditText))> then begin if Copy(EditText)= then begin if StrToInt(Copy(EditText))<= then begin if Copy(editText)= then begin 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 LabelCaption:=只是字符串; end else LabelCaption:=只是字符串; end else LabelCaption:=只是字符串; end else LabelCaption:=只是字符串; end; if (Length(EditText)=)and(Copy(EditText)=:) then begin if StrToInt(copy(EditText))<= then begin if StrToInt(copy(EditText))<= then begin if Copy(EditText)=: then begin if StrToInt(Copy(EditText))<= then LabelCaption:=是时间型字符串 else LabelCaption:=只是字符串; end else LabelCaption:=只是字符串; end else LabelCaption:=只是字符串; end else LabelCaption:=只是字符串; end; end else LabelCaption:=只是字符串; end; [] [] |
