在 Delphi 中使用正则表达式,可以使用PerlRegEx ,具体可以在网上下载

    1. var
    2. reg: TPerlRegEx;
    3. begin
    4. reg := TPerlRegEx.Create();
    5. reg.Subject := '要匹配的文本';
    6. reg.RegEx := '正则表达式';
    7. reg.Replacement := '匹配后替换的文本';
    8. reg.ReplaceAll;//匹配所有
    9. reg.Options := [preCaseLess]; //不区分大小的设定, 默认是区分的
    10. vReg.Free;
    11. end;