首页 / 软件开发 / Delphi / Delphi中正则表达式之TPerlRegEx类的属性与方法（2） 关于子表达式

Delphi中正则表达式之TPerlRegEx类的属性与方法（2） 关于子表达式2012-12-22 博客园 万一// MatchedExpression 与 SubExpressions[0]

var
reg: TPerlRegEx;
begin
reg := TPerlRegEx.Create（nil）;
reg.Subject := "CodeGear Delphi 2007";
reg.RegEx := "Delphi";
while reg.MatchAgain do
begin
ShowMessage（reg.MatchedExpression）; //Delphi; 这是匹配到的内容
ShowMessage（reg.SubExpressions[0]）; //Delphi; 也可以这样显示匹配到 的内容
end;
{
SubExpressions 是一个数组:
SubExpressions[1] 储存第 1 个表达式匹配的内容;
SubExpressions[2] 储存第 2 个表达式匹配的内容;
SubExpressions[n] 储存第 n 个表达式匹配的内容;
SubExpressions[0] 储存整个表达式匹配的内容;
MatchedExpression 表示的不过是 SubExpressions[0].
}
FreeAndNil（reg）;
end;

//提取子表达式匹配到的内容

var
reg: TPerlRegEx;
begin
reg := TPerlRegEx.Create（nil）;
reg.Subject := "abc A1111 BB222 CCC33 DDDD4";
reg.RegEx := "（[A-D]+）（[1-4]+）"; //这个表达式有两个子表达式构成
while reg.MatchAgain do
begin
ShowMessage（reg.SubExpressions[0]）; //将分别显示: A1111 BB222 CCC33 DDDD4
ShowMessage（reg.SubExpressions[1]）; //将分别显示: A BB CCC DDDD
ShowMessage（reg.SubExpressions[2]）; //将分别显示: 1111 222 33 4
{另外:
reg.SubExpressionCount 是子表达式的个数;
reg.SubExpressionLengths[n] 是第 n 个表达式返回的字符串的长度;
reg.SubExpressionOffsets[n] 是第 n 个表达式返回的字符串在源字符串 中的位置
}
end;
FreeAndNil（reg）;
end;

//子表达式不能超过 MAX_SUBEXPRESSIONS = 99 个, MAX_SUBEXPRESSIONS 是 TPerlRegEx 的内置常数.