Delphi 正则表达式TPerlRegEx 类的属性与方法.docVIP

Delphi 正则表达式TPerlRegEx 类的属性与方法 Delphi 正则表达式TPerlRegEx 类的属性与方法 //查找是否存在 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