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

首先看下函数定义原型:

1.StringReplace函数原型

StringReplace 替换 与 最新的TStringHelper.Replace 比较。_替换字符串

 

2.TStringHelper类里的原型:

StringReplace 替换 与 最新的TStringHelper.Replace 比较。_字符串_02

 

 ======================================好了,接下来让我们弄个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;


 

StringReplace 替换 与 最新的TStringHelper.Replace 比较。_字符串_03