实施
{$ R *。dfm}
,使用
,PerlRegEx;//使用正则表达式单元
过程TForm1。FormCreate(发送方:TObject);
var
,注册:TPerlRegEx;
,num:整数;//用num来计数
开始,注册:=TPerlRegEx.Create ();
,reg。主题:=' CodeGear Delphi G2007 Win32的;
,reg.RegEx ,:=(FG) \ d {4} ';
,num:=0;
,而注册。MatchAgain do //MatchAgain是下一个
,开始
,,,ShowMessage (reg.MatchedText);//将分别显示:2 0 0 7 3 2
,,,公司(num);
,结束;
,,,ShowMessage (IntToStr (num));//6
,FreeAndNil (reg);
,