在 Delphi 中使用正则表达式,可以使用PerlRegEx ,具体可以在网上下载
var
reg: TPerlRegEx;
begin
reg := TPerlRegEx.Create();
reg.Subject := '要匹配的文本';
reg.RegEx := '正则表达式';
reg.Replacement := '匹配后替换的文本';
reg.ReplaceAll;//匹配所有
reg.Options := [preCaseLess]; //不区分大小的设定, 默认是区分的
vReg.Free;
end;