Delphi 正则表达式之TPerlRegEx 类的属性与方法(2): 关于子表达式

<br />   // MatchedExpression 与 SubExpressions[0]<br /> var<br />   reg: TPerlRegEx;<br /> begin<br />   reg := TPerlRegEx.Create(nil);</p> <p style="text-indent:2em;">  reg.Subject := 'CodeGear <a href="http://www.yrnote.com/archives/tag/page_delphi/" title="查看与 Delphi 相关的文章" target="_blank">Delphi</a> 2007';<br />   reg.RegEx   := '<a href="http://www.yrnote.com/archives/tag/page_delphi/" title="查看与 Delphi 相关的文章" target="_blank">Delphi</a>'; </p> <p style="text-indent:2em;">  while reg.MatchAgain do<br />   begin<br />     ShowMessage(reg.MatchedExpression); //<a href="http://www.yrnote.com/archives/tag/page_delphi/" class="st_tag internal_tag" rel="tag" title="Posts tagged with Delphi">Delphi</a>; 这是匹配到的内容<br />     ShowMessage(reg.SubExpressions[0]); //<span class='wp_keywordlink_affiliate'><a href="http://www.yrnote.com/archives/tag/page_delphi/" title="View all posts in Delphi" target="_blank">Delphi</a></span>; 也可以这样显示匹配到的内容<br />   end;<br /> {<br />   SubExpressions 是一个数组:<br />   SubExpressions[1] 储存第 1 个表达式匹配的内容;<br />   SubExpressions[2] 储存第 2 个表达式匹配的内容;<br />   SubExpressions[n] 储存第 n 个表达式匹配的内容;</p> <p style="text-indent:2em;">  SubExpressions[0] 储存整个表达式匹配的内容;</p> <p style="text-indent:2em;">  MatchedExpression 表示的不过是 SubExpressions[0].<br /> }</p> <p style="text-indent:2em;">  FreeAndNil(reg);<br /> end;</p> <p style="text-indent:2em;">
----------------------------------------------------------------------------------------------------------------
<br /> //提取子表达式匹配到的内容<br /> var<br />   reg: TPerlRegEx;<br /> begin<br />   reg := TPerlRegEx.Create(nil);</p> <p style="text-indent:2em;">  reg.Subject := 'abc A1111 BB222 CCC33 DDDD4';<br />   reg.RegEx   := '\b([A-D]+)([1-4]+)\b'; //这个表达式有两个子表达式构成</p> <p style="text-indent:2em;">  while reg.MatchAgain do<br />   begin<br />     ShowMessage(reg.SubExpressions[0]); //将分别显示: A1111 BB222 CCC33 DDDD4<br />     ShowMessage(reg.SubExpressions[1]); //将分别显示: A BB CCC DDDD<br />     ShowMessage(reg.SubExpressions[2]); //将分别显示: 1111 222 33 4</p> <p style="text-indent:2em;">    {另外:<br />       reg.SubExpressionCount      是子表达式的个数;<br />       reg.SubExpressionLengths[n] 是第 n 个表达式返回的字符串的长度;<br />       reg.SubExpressionOffsets[n] 是第 n 个表达式返回的字符串在源字符串中的位置<br />     }<br />   end;</p> <p style="text-indent:2em;">  FreeAndNil(reg);<br /> end;<br /> --------------------------------------------------------------------------------</p> <p style="text-indent:2em;">//子表达式不能超过 MAX_SUBEXPRESSIONS = 99 个, MAX_SUBEXPRESSIONS 是 TPerlRegEx 的内置常数.<br />
-------------------------------------------------------------------------------------
我刚看这段代码的时候
但是我觉得 结果里面不应该有4啊
因为第二个表达式的规则 ([1-4]+) 是 说 1到4 后面重复一次或者一次以上的字符串

4只是单独一个~后面又没有重复 ~
还到CSDN上求了贴~希望有答案