// 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 的值, 当然是不能赋值的, 它仅仅是返回值.
05-11 22:27