随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

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;

posted on 2007-12-11 16:27  万一  阅读(...)  评论(...编辑  收藏