背景:原来要替换字符串 官方有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;