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;

成都创新互联网站建设公司一直秉承“诚信做人，踏实做事”的原则，不欺瞒客户，是我们最起码的底线！ 以服务为基础，以质量求生存，以技术求发展，成交一个客户多一个朋友！专注中小微企业官网定制，成都做网站、成都网站制作、成都外贸网站建设，塑造企业网络形象打造互联网企业效应。

另外有需要云服务器可以了解下创新互联scvps.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。

文章名称：delphi使用正则表达式-创新互联
链接地址：http://myzitong.com/article/ieipj.html