delphi 检测字符串是否包含特殊字符

function checkstr(const str: string): Boolean;

var

j:integer;

begin

Result :=false;

for J:=1 to Length(str) do

begin

if (str[J] in ['!','[','.','\','/',':','*','?','"','<','>','|','.','，','。','#']) then

begin

Result :=true;

break;

end;

end;

end;