8288分类目录 8288分类目录 8288分类目录
  当前位置:海洋目录网 » 站长资讯 » 站长资讯 » 文章详细 订阅RssFeed

Delphi 正则表达式之TPerlRegEx 类的属性与方法(1): 查找

来源:本站原创 浏览:141次 时间:2021-09-17
Delphi 正则表达式之TPerlRegEx 类的属性与方法(1): 查找    
//查找是否存在var  reg: TPerlRegEx;begin  reg := TPerlRegEx.Create(nil);  reg.Subject := 'CodeGear Delphi 2007 for Win32';  reg.RegEx   := '\d';  if reg.Match then    ShowMessage('找到了')  else    ShowMessage('没找到');  FreeAndNil(reg);end;//查找是否存在(方法2)var  reg: TPerlRegEx;begin  reg := TPerlRegEx.Create(nil);  reg.Subject := 'CodeGear Delphi 2007 for Win32';  reg.RegEx   := '\d';  reg.Match; //执行查找  if reg.FoundMatch then  //布尔变量 FoundMatch 会告诉我们查找有没有结果    ShowMessage('找到了')  else    ShowMessage('没找到');  FreeAndNil(reg);end;//显示找到的第一个var  reg: TPerlRegEx;begin  reg := TPerlRegEx.Create(nil);  reg.Subject := 'CodeGear Delphi 2007 for Win32';  reg.RegEx   := '\d';  if reg.Match then    ShowMessage(reg.MatchedExpression)  //2  else    ShowMessage('没找到');  FreeAndNil(reg);end;//分别显示找到的每一个和总数var  reg: TPerlRegEx;  num: Integer; //用 num 来计数begin  reg := TPerlRegEx.Create(nil);  reg.Subject := 'CodeGear Delphi 2007 for Win32';  reg.RegEx   := '\d';  num := 0;  while reg.MatchAgain do  //MatchAgain 是下一个  begin    ShowMessage(reg.MatchedExpression); //将分别显示: 2 0 0 7 3 2    Inc(num);  end;    ShowMessage(IntToStr(num)); //6  FreeAndNil(reg);end;//分别显示找到的每一个和总数(另一种写法)var  reg: TPerlRegEx;  num: Integer; //用 num 来计数begin  reg := TPerlRegEx.Create(nil);  reg.Subject := 'CodeGear Delphi 2007 for Win32';  reg.RegEx   := '\d';  num := 0;  if reg.Match then  begin    repeat      ShowMessage(reg.MatchedExpression); //将分别显示: 2 0 0 7 3 2      Inc(num);    until (not reg.MatchAgain);  end;    ShowMessage(IntToStr(num)); //6  FreeAndNil(reg);end;//目标字符串的位置与长度var  reg: TPerlRegEx;begin  reg := TPerlRegEx.Create(nil);  reg.Subject := 'CodeGear Delphi 2007 for Win32';  reg.RegEx   := 'Delphi';  while reg.MatchAgain do  //很明显: 本例只能找到一个结果  begin    ShowMessage(reg.MatchedExpression); //找到的字符串: Delphi    ShowMessage(IntToStr(reg.Matche��ֽ,��ֽdExpressionOffset)); //它所在的位置: 10    ShowMessage(IntToStr(reg.MatchedExpressionLength)); //它的长度: 6  end;  FreeAndNil(reg);end;


  推荐站点

  • At-lib分类目录At-lib分类目录

    At-lib网站分类目录汇集全国所有高质量网站,是中国权威的中文网站分类目录,给站长提供免费网址目录提交收录和推荐最新最全的优秀网站大全是名站导航之家

    www.at-lib.cn
  • 中国链接目录中国链接目录

    中国链接目录简称链接目录,是收录优秀网站和淘宝网店的网站分类目录,为您提供优质的网址导航服务,也是网店进行收录推广,站长免费推广网站、加快百度收录、增加友情链接和网站外链的平台。

    www.cnlink.org
  • 35目录网35目录网

    35目录免费收录各类优秀网站,全力打造互动式网站目录,提供网站分类目录检索,关键字搜索功能。欢迎您向35目录推荐、提交优秀网站。

    www.35mulu.com
  • 就要爱网站目录就要爱网站目录

    就要爱网站目录,按主题和类别列出网站。所有提交的网站都经过人工审查,确保质量和无垃圾邮件的结果。

    www.912219.com
  • 伍佰目录伍佰目录

    伍佰网站目录免费收录各类优秀网站,全力打造互动式网站目录,提供网站分类目录检索,关键字搜索功能。欢迎您向伍佰目录推荐、提交优秀网站。

    www.wbwb.net