delphi判断字符串是否包含限制以外的字符否则置空

判断字符串是否包含限制以外的字符否则置空

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'..'z','A'..'Z']) then

begin

TsEdit(Sender).Text:='';

end;

可以使用下列方法将不符合的字符突出显示出来

TsEdit(ctl).SelectAll

TsEdit(ctl).SelLength

TsEdit(ctl).SelStart

TsEdit(ctl).SelText

————————————————

原文链接：https://blog.csdn.net/u010431493/article/details/79785430

推荐分享