Delphi 正则表达式之TPerlRegEx 类的属性与方法(4): Replace

// Replacevar  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 的值, 当然是不能赋值的, 它仅仅是返回值.