//贪婪匹配
var
  reg: TPerlRegEx;
begin
  reg := TPerlRegEx.Create(nil);   reg.Subject := '<html><head><title>标题</title></head><body>内容</body></html>';
  reg.RegEx  := '<.*>'; //将会全部匹配, 因为两头分别是: < 和 >
  reg.Replacement := '◆';
  reg.ReplaceAll;   ShowMessage(reg.Subject); //返回: ◆   FreeAndNil(reg);
end;

//非贪婪匹配
var
  reg: TPerlRegEx;
begin
  reg := TPerlRegEx.Create(nil);   reg.Subject := '<html><head><title>标题</title></head><body>内容</body></html>';
  reg.RegEx  := '<.*?>'; // *? 是非贪婪匹配方法之一, 将匹配每组 <>
  reg.Replacement := '◆';
  reg.ReplaceAll;   ShowMessage(reg.Subject); //返回: ◆◆◆标题◆◆◆内容◆◆   FreeAndNil(reg);
end; //更多贪婪与非贪婪匹配对照:
 贪婪匹配  非贪婪匹配 描述
???0 个或 1 个
++?1 个或多个
**?0 个或多个
{n}{n}?n 个
{n,m}{n,m}?n - m 个
{n,}{n,}?n 个或多个
05-08 15:51