uses RegularExpressions;const  pattern = '([A-Z]+)(\d+)'; //其三个子表达式分别是：[A-Z]+\d+  [A-Z]+  \d+  txt = 'AAA1 BBB2 AA11 BB22 A111 B222 AAAA'; //测试用的目标文本procedure TForm1.Button1Click(Sender: TObject);var  match: TMatch;  group: TGroup;  groups: TGroupCollection;begin  match := TRegEx.Match(txt, pattern);  groups := match.Groups;  Memo1.Clear;  for group in groups do  begin    Memo1.Lines.Add(group.Value); //AAA1/AAA/1  end;end;procedure TForm1.Button2Click(Sender: TObject);var  match: TMatch;  group: TGroup;begin  Memo1.Clear;  for match in TRegEx.Matches(txt, pattern) do  begin    for group in match.Groups do    begin      Memo1.Lines.Add(group.Value);    end;    Memo1.Lines.Add('');  end;end;{**************AA11AA11BB22BB22A111A111B222B222**************}procedure TForm1.Button3Click(Sender: TObject);var  rStr: string;begin  Memo1.Clear;  rStr := TRegEx.Replace(txt, pattern, '$1');   //AAA BBB AA BB A B AAAA  Memo1.Lines.Add(rStr);  rStr := TRegEx.Replace(txt, pattern, '$2');   //1 2 11 22 111 222 AAAA  Memo1.Lines.Add(rStr);  rStr := TRegEx.Replace(txt, pattern, '$2$1'); //1AAA 2BBB 11AA 22BB 111A 222B AAAA  Memo1.Lines.Add(rStr);end;{**********************************AAA BBB AA BB A B AAAA1 2 11 22 111 222 AAAA1AAA 2BBB 11AA 22BB 111A 222B AAAA***********************************}