1. 程式人生 > >Delphi判斷字串是否包含限制以外的字元 否則置空

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;
end;
end;
可以使用下列方法將不符合的字元突出顯示出來TsEdit(ctl).SelectAll
TsEdit(ctl).SelLengthTsEdit(ctl).SelStartTsEdit(ctl).SelText