StringReplace 替换 与 最新的TStringHelper.Replace 比较。

背景:原来要替换字符串 官方有StringReplace函数,后来官方引进了StringHelper帮助类,更加简化了字符串的替换操作。这里做个简单对比;

首先看下函数定义原型:

1.StringReplace函数原型

2.TStringHelper类里的原型:

 ======================================好了,接下来让我们弄个Demo对比下============================

procedure TForm4.Button1Click(Sender: TObject);
var
  s: string;
begin
  s := 'Aa aa aa AA';

  //StringReplace 必须有三个参数
  Memo1.Lines.Add(StringReplace(s, 'aa', 'b', [])); //区分大小写,只替换第一个匹配的

  Memo1.Lines.Add(StringReplace(s, 'aa', 'b', [rfReplaceAll])); //区分大小写,替换所有匹配的

  Memo1.Lines.Add(StringReplace(s, 'aa', 'b', [rfIgnoreCase])); //不区分大小写,只替换第一个匹配的

  Memo1.Lines.Add(StringReplace(s, 'aa', 'b', [rfReplaceAll,rfIgnoreCase])); //不区分大小写,替换所有匹配的

  Memo1.Lines.Add('---------------------');

  //TStringHelper的Replace 有多个重载.
  Memo1.Lines.Add(s.Replace('aa', 'b')); //区分大小写,替换所有匹配的(可见第三个参数默认是[rfReplaceAll])

  Memo1.Lines.Add(s.Replace('aa', 'b', [])); //区分大小写,只替换第一个匹配的

  Memo1.Lines.Add(s.Replace('aa', 'b', [rfReplaceAll])); //区分大小写,替换所有匹配的

  Memo1.Lines.Add(s.Replace('aa', 'b', [rfIgnoreCase])); //不区分大小写,只替换第一个匹配的

  Memo1.Lines.Add(s.Replace('aa', 'b', [rfReplaceAll,rfIgnoreCase])); //不区分大小写,替换所有匹配的

end;

原文地址:https://www.cnblogs.com/del88/p/2238094.html