//贪婪匹配 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 个或多个 |