碗豆豆的博客

判断字符串是否包含限制以外的字符 否则置空procedure TMainForm.cbSearchExit(Sender: TObject); //判断退出事件 var J:Integer; K:String; begin K := TsEdit(Sender).Text; for J:=1 to Length(K) do begin if not(K[J] in ['0'..'9','a'....