Delphi 正则表达式之TPerlRegEx 类的属性与方法(3): Start、Stop

Delphi 正则表达式之TPerlRegEx 类的属性与方法(3): Start、Stop

//设定搜索范围: Start、Stop
var
  reg: TPerlRegEx;
begin
  reg := TPerlRegEx.Create(nil);

  reg.Subject := 'ababab';
  reg.RegEx   := 'ab';
  reg.Replacement := '◆';

  reg.Start := ;
  reg.Stop := ;
  while reg.MatchAgain do
  begin
    reg.Replace;
  end;
  ShowMessage(reg.Subject); //返回: ◆abab

  reg.Subject := 'ababab';
  reg.Start := ;
  reg.Stop := ;
  while reg.MatchAgain do
  begin
    reg.Replace;
  end;
  ShowMessage(reg.Subject); //返回: ab◆ab

  reg.Subject := 'ababab';
  reg.Start := ;
  reg.Stop := ;
  while reg.MatchAgain do
  begin
    reg.Replace;
  end;
  ShowMessage(reg.Subject); //返回: abab◆

  FreeAndNil(reg);
end;