Delphi 中使用正则

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

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