delphi使用正则表达式

implementation

{$R *.dfm}
  uses
  PerlRegEx; //uses 正则表达式单元


procedure TForm1.FormCreate(Sender: TObject);
var
  reg: TPerlRegEx;
  num: Integer; //用 num 来计数
begin
  reg := TPerlRegEx.Create();

  reg.Subject := 'CodeGear Delphi G2007 for Win32';
  reg.RegEx   := '[FG]\d{4}';

  num := 0;
  while reg.MatchAgain do  //MatchAgain 是下一个
  begin
    ShowMessage(reg.MatchedText); //将分别显示: 2 0 0 7 3 2
    Inc(num);
  end;
    ShowMessage(IntToStr(num)); //6

  FreeAndNil(reg);
end;

10年积累的成都做网站、网站建设经验,可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你,你也不认识我。但先制作网站后付款的网站建设流程,更有沈河免费网站建设让你可以放心的选择与我们合作。


分享名称:delphi使用正则表达式
本文来源:http://bzwzjz.com/article/gscicj.html

其他资讯

Copyright © 2007-2020 广东宝晨空调科技有限公司 All Rights Reserved 粤ICP备2022107769号
友情链接: 成都响应式网站建设 手机网站制作设计 成都网站制作 成都网站设计 外贸营销网站建设 高端定制网站设计 重庆企业网站建设 重庆网站建设 高端网站设计 网站建设推广 网站建设方案 网站设计 企业网站建设公司 营销型网站建设 商城网站建设 宜宾网站设计 成都网站制作 四川成都网站建设 网站设计 达州网站设计 成都网站建设 移动网站建设