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