新版本的Delphi内置了专门用于正则操作的库System.RegularExpressions，该库提供了一个专门的类TRegEx用来操作正则表达式。今天一起来看看Delphi正则表达式用法，包括创建正则表达式对象、匹配验证、捕获分组以及反向引用等。

新建TRegEx对象

通过TRegEx.Create('your pattern')来新建正则对象。

uses System.RegularExpressions;

var
  Regex: TRegEx;
  Input: string;
begin
  Input := 'Hello world and love';
  // 创建一个正则表达式对象，使用构造函数指定正则表达式字符串
  Regex := TRegEx.Create('world');
end;

验证是否匹配(IsMatch)

新建TRegEx对象之后，如果只需要验证是否匹配，可以使用IsMatch方法。该方法返回一个boolean值，true表示匹配，false表示不匹配。

if Regex.IsMatch(Input) then
  ShowMessage('匹配成功');

获取第一个匹配的位置(Match)

新建TRegEx对象之后，也可以用Match方法，获取到具体的匹配信息，包括第一次匹配的位置(Index)。

var
  Match: TMatch;
begin
  Match := Regex.Match(Input);
  if Match.Success then
    ShowMessage('第一次匹配的位置在： ' + IntToStr(Match.Index));
end;

获取所有匹配结果(Matches)

如果要获取所有匹配结果，可以用Matches方法，该方法返回一个TMatchCollection，包含所有的匹配结果。

var
  Matches: TMatchCollection;
  Match: TMatch;
begin
  Matches := Regex.Matches(Input);
  for Match in Matches do
    WriteLn('匹配位置： ' + IntToStr(Match.Index) + '， 匹配值: ' + Match.Value);
end;

捕获分组(Groups)

在正则表达式中，使用圆括号 () 来定义捕获组。每一个()表示一组匹配。匹配后，可以通过Groups获取到所有匹配的分组信息。

比如下面的案例，定义分组正则表达式，可以获取到所有的数字。

var
  Match: TMatch;
begin
  Match := Regex.Match('123-45-6789');
  if Match.Success then
  begin
    WriteLn('Group 1: ' + Match.Groups[1].Value); // 输出：123
    WriteLn('Group 2: ' + Match.Groups[2].Value); // 输出：45
    WriteLn('Group 3: ' + Match.Groups[3].Value); // 输出：6789
  end;
end;

匹配结果反向引用

反向引用允许你在替换字符串中引用之前的捕获组内容，一般用于正则替换(Replace)场景。使用 $ 符号加组号（如 $1、$2）或命名组名（如 $groupname）来引用。

下面的案例中，<tag>text</tag>被替换成 $1 has been extracted，其中$1是匹配到的结果，即text。

uses
  System.SysUtils,
  System.RegularExpressions;

var
  Regex: TRegEx;
  InputStr, ReplacementStr: string;

begin
  InputStr := 'Before <tag>text</tag> After';
  
  // 创建一个正则表达式对象
  Regex := TRegEx.Create('<tag>(.*?)</tag>');

  // 使用反向引用进行替换
  ReplacementStr := Regex.Replace(InputStr, '$1 has been extracted');
  
  // 输出替换后的结果
  WriteLn(ReplacementStr); // 输出：Before text has been extracted After
end;