Delphi Regular Expression Syntax (6) greedy match and non-greedy match

Greedy match

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

Non-greedy match

var
　 reg: TPerlRegEx;
begin
　 reg := TPerlRegEx.Create(nil);
　 reg.Subject := ' 　 reg.RegEx　 := '<.*?>'; // *? 是非贪婪匹配方法之一, 将匹配每 组 <>
　 reg.Replacement := '◆';
　 reg.ReplaceAll;
　 ShowMessage(reg.Subject); //返回: ◆◆◆标题◆◆◆内容◆◆
　 FreeAndNil(reg);
end;

More greed and non-greedy match control:

Greedy match	Non-greedy match	Describe
?	??	0 or 1
+	+?	1 or more
*	*?	0 or more
N	{n}?	N A
{N,m}	{n,m}?	N-m A
{N,}	{N,}?	N or more