Delphi中正則表達式之TPerlRegEx類的屬性與方法(4) Replace

// 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 的值, 當然是不能賦值的, 它僅僅是返回 值.
}