通配符函数 MatchesMask 的使用(少见)

通配符函数 MatchesMask 的使用

uses
Masks;
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
s := 'http://www.132435.com';
MatchesMask(s,'http://*');               //True
  MatchesMask(s,'HTTP://*.com');           //True
  MatchesMask(s,'*.com');                  //True
  MatchesMask(s,'*.132435.com');           //True
  MatchesMask(s,'http://www.*.com');       //True
  MatchesMask(s,'http://www.??????.com');  //True
  MatchesMask(s,'http://www.132435.???');  //True
  //总结: 类似dos下的通配符, 不区分大小写.

s := '万一的Delphi博客';
MatchesMask(s,'万一*');             //True
  MatchesMask(s,'????的Delphi博客');  //True
  MatchesMask(s,'??的Delphi博客');    //False
  //总结: 一个汉字被当作两个字符处理.

MatchesMask('118','[1-9][0-9]*');  //True
  MatchesMask('10x','[1-9][0-9]*');  //True
  MatchesMask('001','[1-9][0-9]*');  //False
  MatchesMask('9x','[1-9][0-9]*');   //False

MatchesMask('http','[f-h]*');  //True
  MatchesMask('ftp','[f-h]*');   //True
  MatchesMask('abc','[f-h]*');   //False
  //总结: 可以使用类型子界的处理方法.
end;