我在RegexBuddy中构建了一个匹配模式,其行为与我预期完全相同。但是,在使用最新的内置TRegEx或TPerlRegEx时,我无法将其转移到Delphi XE。
我的真实代码有6个捕获组,但我可以用一个更简单的例子来说明问题。这段代码在第一个对话框中给出“3”,当执行第二个对话框时引发异常(-7索引超出范围)。
var
Regex: TRegEx;
M: TMatch;
begin
Regex := TRegEx.Create('(?P<time>\d{1,2}:\d{1,2})(?P<judge>.{1,3})');
M := Regex.Match('00:00 X1 90 55KENNY BENNY');
ShowMessage(IntToStr(M.Groups.Count));
ShowMessage(M.Groups['time'].Value);
end;
但如果我只使用一个捕获组
Regex := TRegEx.Create('(?P<time>\d{1,2}:\d{1,2})');
第一个对话框显示“2”,第二个对话框将按预期显示时间“00:00”。
然而,如果只允许一个命名捕获组,那就有点受限了,但这并不是情况... 如果我将捕获组名称更改为例如“atime”。
var
Regex: TRegEx;
M: TMatch;
begin
Regex := TRegEx.Create('(?P<atime>\d{1,2}:\d{1,2})(?P<judge>.{1,3})');
M := Regex.Match('00:00 X1 90 55KENNY BENNY');
ShowMessage(IntToStr(M.Groups.Count));
ShowMessage(M.Groups['atime'].Value);
end;
我得到了"3"和"00:00",正如我所预期的那样。是否有我不能使用的保留字?我认为没有,因为在我的实际示例中,我尝试了完全随机的名称。我只是无法弄清楚是什么导致了这种行为。