判断字符串是否包含以下字符

//判断字符串是否包含以下字符 
 

function  IsIllegalChar(Text:string):Boolean;
const  illegalChar:set of Char = ['\','/',':','?','"','<','>','|'];
var
    i:Integer;
begin
     for i:= 1 to Length(Text) do
     begin
          if Text[i] in illegalChar then
          begin
            Result:=True;
            Exit;
          end
     end;
     Result:=False;
end;

 

procedure TForm1.Edit1Change(Sender: TObject);
begin
  If IsIllegalChar(Edit1.Text) then
      Button1.Enabled:=False
  Else
      Button1.Enabled:=True;
end;

来自为知笔记(Wiz)

附件列表

• dsd.gif