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

云烟，不再年轻

于 2008-07-23 16:43:00 发布

阅读量882

点赞数

分类专栏： delphi 文章标签：正则表达式 delphi

delphi 专栏收录该内容

152 篇文章

订阅专栏

本文介绍了一个使用正则表达式进行指定范围内字符串替换的例子。通过设置起始和结束位置，可以精确控制替换操作的作用范围，这对于文本处理任务非常有用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

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

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


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


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

  FreeAndNil(reg);
end;