Delphi 正则表达式之TPerlRegEx 类的属性与方法(4): Replace

正则替换示例

最新推荐文章于 2025-12-08 01:30:34 发布

转载最新推荐文章于 2025-12-08 01:30:34 发布 · 295 阅读

文章标签：

#正则表达式 #delphi #regex

Delphi摘要专栏收录该内容

43 篇文章

订阅专栏

本文演示了使用Delphi中的TPerlRegEx组件进行字符串替换的方法。通过实例代码展示了如何用特定字符替换目标字符串中的匹配项，并比较了ReplaceAll与循环调用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 的值, 当然是不能赋值的, 它仅仅是返回值.
}