Delphi 正則表達式 TPerlRegEx 實戰 (4)：Replace 替換操作詳解

TPerlRegEx 提供 ReplaceAll 整體替換與 Replace 單步替換兩種模式，搭配 MatchAgain 可實現精細控制。

基本替換：ReplaceAll

var 
  reg: TPerlRegEx; 
begin 
  reg := TPerlRegEx.Create(nil); 
  reg.RegEx := 'ab'; 
  reg.Replacement := '◆'; 
  reg.Subject := 'ababab'; 
  reg.ReplaceAll; 
  ShowMessage(reg.Subject); { 輸出: ◆◆◆ }
  
  FreeAndNil(reg); 
end;

手動迴圈替換：等價於 ReplaceAll

reg.Subject := 'ababab'; 

{ 下面四行等價於 reg.ReplaceAll }
while reg.MatchAgain do 
begin 
  reg.Replace; 
end; 

ShowMessage(reg.Subject); { 輸出: ◆◆◆ }

while reg.MatchAgain do 
begin 
  { 根據匹配內容決定是否替換 }
  if SomeCondition(reg.MatchedExpression) then 
    reg.Replace 
  else 
    { 不替換，繼續下一個匹配 }
    ; 
end;