어댑터 함수 Matches Mask 사용

1427 단어 matches

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;

 

좋은 웹페이지 즐겨찾기