pascal-TRegExpr：Pascal 中的强大正则表达式库

icy 昨天 18 抢沙发

默认

摘要： TRegExpr：Pascal 中的强大正则表达式库项目概述 TRegExpr 是一个为 Pascal（Delphi、Free Pascal、Lazarus 等）开发的高性能正则...

TRegExpr：Pascal 中的强大正则表达式库

项目概述

TRegExpr 是一个为 Pascal（Delphi、Free Pascal、Lazarus 等）开发的高性能正则表达式库，由 Andrey V. Sorokin 创建并维护。该项目在 GitHub 上开源，地址为 https://github.com/andgineer/TRegExpr，提供了在 Pascal 环境中处理正则表达式的完整解决方案。

核心特性

1. 跨平台兼容性

支持 Delphi 5-11 及更高版本
兼容 Free Pascal 和 Lazarus
可在 Windows、Linux、macOS 等多个平台上运行

2. 正则表达式功能

支持 Perl 兼容的正则表达式语法
提供贪婪和非贪婪匹配模式
支持子表达式捕获和反向引用
具备多行匹配和大小写敏感控制

3. 性能优化

采用高效的 NFA 算法实现
编译后的表达式可重复使用，提高执行效率
内存占用低，适合资源受限环境

安装与配置

通过 GitHub 获取

text

git clone https://github.com/andgineer/TRegExpr.git

在 Delphi 项目中添加

将 TRegExpr.pas 文件添加到项目路径
在需要使用正则表达式的单元中添加引用：

text

uses
  RegExpr;

基础使用示例

示例 1：简单匹配验证

text

var
  Regex: TRegExpr;
begin
  Regex := TRegExpr.Create;
  try
    Regex.Expression := '^\d{3}-\d{2}-\d{4}$'; // 匹配美国社保号格式
    if Regex.Exec('123-45-6789') then
      WriteLn('格式正确')
    else
      WriteLn('格式错误');
  finally
    Regex.Free;
  end;
end;

示例 2：提取匹配内容

text

var
  Regex: TRegExpr;
begin
  Regex := TRegExpr.Create;
  try
    Regex.Expression := '(\d{4})-(\d{2})-(\d{2})'; // 匹配日期格式
    if Regex.Exec('会议时间：2023-10-15 下午2点') then
    begin
      WriteLn('年份：' + Regex.Match[1]); // 输出：2023
      WriteLn('月份：' + Regex.Match[2]); // 输出：10
      WriteLn('日期：' + Regex.Match[3]); // 输出：15
    end;
  finally
    Regex.Free;
  end;
end;

示例 3：替换文本内容

text

var
  Regex: TRegExpr;
  Text: string;
begin
  Regex := TRegExpr.Create;
  try
    Text := '价格：$100.50，特价：$75.00';
    Regex.Expression := '\$(\d+(?:\.\d{2})?)';
    // 将所有价格增加20%
    Text := Regex.Replace(Text, 
      function(const Match: string): string
      var
        Price: Double;
      begin
        Price := StrToFloat(Copy(Match, 2, Length(Match)));
        Result := '$' + FormatFloat('0.00', Price * 1.2);
      end, True);
    WriteLn(Text); // 输出：价格：$120.60，特价：$90.00
  finally
    Regex.Free;
  end;
end;

示例 4：分割字符串

text

var
  Regex: TRegExpr;
  Parts: TStringList;
  i: Integer;
begin
  Regex := TRegExpr.Create;
  Parts := TStringList.Create;
  try
    Regex.Expression := '[,\s]+'; // 按逗号或空白字符分割
    Regex.Split('苹果, 香蕉, 橙子, 葡萄', Parts);
    
    for i := 0 to Parts.Count - 1 do
      WriteLn('水果' + IntToStr(i+1) + '：' + Parts[i]);
  finally
    Parts.Free;
    Regex.Free;
  end;
end;

高级功能示例

示例 5：多行模式匹配

text

var
  Regex: TRegExpr;
begin
  Regex := TRegExpr.Create;
  try
    Regex.Expression := '^Name:\s*(.+)$';
    Regex.ModifierM := True; // 启用多行模式
    
    if Regex.Exec('Name: John Doe' + #13#10 + 'Age: 30' + #13#10 + 'Name: Jane Smith') then
    begin
      repeat
        WriteLn('找到姓名：' + Regex.Match[1]);
      until not Regex.ExecNext;
    end;
  finally
    Regex.Free;
  end;
end;

示例 6：复杂验证逻辑

text

function ValidateEmail(const Email: string): Boolean;
var
  Regex: TRegExpr;
begin
  Regex := TRegExpr.Create;
  try
    // 电子邮件地址验证正则表达式
    Regex.Expression := '^[a-zA-Z0-9._%+-]+@[a-zA-Z0-9.-]+\.[a-zA-Z]{2,}$';
    Regex.ModifierI := True; // 不区分大小写
    Result := Regex.Exec(Email);
  finally
    Regex.Free;
  end;
end;