Delphi中正则表达式之TPerlRegEx类的属性与方法（4） Replace

Delphi中正则表达式之TPerlRegEx类的属性与方法（4） Replace2012-12-22 博客园万一// Replace

var
 reg: TPerlRegEx;
begin
 reg := TPerlRegEx.Create（nil）;
 reg.RegEx  := "ab";
 reg.Replacement := "◆";
 reg.Subject := "ababab";
 reg.ReplaceAll;
 ShowMessage（reg.Subject）; //返回: ◆◆◆
 reg.Subject := "ababab";

//下面四行程序, 相当于 reg.ReplaceAll;

 while reg.MatchAgain do
 begin
  reg.Replace;
 end;

ShowMessage（reg.Subject）; //返回: ◆◆◆

 FreeAndNil（reg）;
end;
{
 ReplaceAll 函数返回的是 Boolean;
 Replace 函数返回的是 Replacement 的值, 当然是不能赋值的, 它仅仅是返回 值.
}