为什么TPerlRegEx的MatchAgain方法不起作用

Question

我想使用RegEX从以下文本中提取SAAM和SAAMI （我在Delphi XE4和XE5中进行编码）：

RegEx = 'Name:\s?(.*),Family:\s?(.*)';

例如我有这个文本：

Name: SAAM
Family: SAAMI

我写了这个代码，并使用MatchAgain的方法TPerlRegEx用于匹配两段正则表达式（ 'Name:\\s?(.*)'和'Family:\\s?(.*)' ）。

...
var
  RX: TPerlRegEx;
const
  RegEx = 'Name:\s?(.*),Family:\s?(.*)';
begin
  RX := TPerlRegEx.Create;
  try
    RX.RegEx := RegEx;
    RX.Subject := mmo1.Text;// The mmo1.text value is "Name: SAAM and Family: SAAMI"
    if RX.Match then
    begin
      repeat
        ShowMessage('Name is :' + RX.Groups[1]);
        ShowMessage('Family is :' + RX.Groups[2]);
      until not RX.MatchAgain;
    end;
  finally
    RX.Free;
  end;
...

为什么此代码不起作用？

Answer 1

我将代码更改为此，并且它对我来说正常工作（几乎:-)）。

示例文字：

  Junk text :-)
  Junk text :-)
  Junk text :-)
Name: SAAM
  Junk text :-)
  Junk text :-)
  Junk text :-)
  Junk text :-)
  Junk text :-)
Family: SAAMI
  Junk text :-)
  Junk text :-)
  Junk text :-)

新代码：

var
  RX: TPerlRegEx;
  i: Integer;
const
  RegEx = 'Name:\s?(.*)|Family:\s?(.*)';
begin
  i := 1;
  RX := TPerlRegEx.Create;
  try
    RX.RegEx := RegEx;
    RX.Subject := mmo1.Text;
    if RX.Match then
    begin
      repeat
        case i of
          1:
            ShowMessage('Name is: ' + RX.Groups[i]);
          2:
            ShowMessage('Family is: ' + RX.Groups[i]);
        end;

        Inc(i);
      until not RX.MatchAgain;
    end;
  finally
    RX.Free;
  end;

结果：

Name is: SAAM
Family is: SAAMI