德尔福使用正则表达式

实施

{$ 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);
,

德尔福使用正则表达式