Delphi正则表达式System.RegularExpressions

新版本的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 Afterend;