可洋 發表於 2022-2-17 14:23:00

Delphi 字符串替换 SysUtils.StringReplace

<p><span style="font-size: 16px"><strong>Delphi 字符串替换 SysUtils.StringReplace</strong></span></p>
<p><span style="font-size: 16px"><strong>StringReplace&nbsp;</strong> 返回一个字符串，其中一个子字符串替换为另一个子字符串。</span></p>
<p><span style="font-size: 16px"><strong>原型：</strong></span></p>
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;"><span style="font-size: 16px">function StringReplace(const S, OldPattern, NewPattern: string;
Flags: TReplaceFlags): string;
var
SearchStr, Patt, NewStr: string;
Offset: Integer;
begin
if rfIgnoreCase in Flags then
begin
    SearchStr := AnsiUpperCase(S);
    Patt := AnsiUpperCase(OldPattern);
end else
begin
    SearchStr := S;
    Patt := OldPattern;
end;
NewStr := S;
Result := '';
while SearchStr &lt;&gt; '' do
begin
    Offset := AnsiPos(Patt, SearchStr);
    if Offset = 0 then
    begin
      Result := Result + NewStr;
      Break;
    end;
    Result := Result + Copy(NewStr, 1, Offset - 1) + NewPattern;
    NewStr := Copy(NewStr, Offset + Length(OldPattern), MaxInt);
    if not (rfReplaceAll in Flags) then
    begin
      Result := Result + NewStr;
      Break;
    end;
    SearchStr := Copy(SearchStr, Offset + Length(Patt), MaxInt);
end;
end;
</span></pre>
</div>
<p><span style="font-size: 16px"><strong>描述：</strong></span></p>
<ul>
<li><span style="font-size: 16px">StringReplace将OldPattern指定的子字符串替换为NewPattern指定的子字符串。StringReplace假定源字符串可能包含多字节字符。</span></li>
<li><span style="font-size: 16px">S是源字符串，其子字符串已更改。</span></li>
<li><span style="font-size: 16px">OldPattern是用来定位并替换为NewPattern的子字符串。</span></li>
<li><span style="font-size: 16px">NewPattern是替换OldPattern的子字符串。</span></li>
<li><span style="font-size: 16px">Flags是一组标志，用于控制StringReplace如何定位和替换OldPattern的引用。如果标志不包括rfReplaceAll，StringReplace只替换S中第一次出现的OldPattern。否则，StringReplace将用NewPattern替换OldPattern的所有实例。如果Flags参数包括rfIgnoreCase，则比较操作不区分大小写。</span></li>
</ul>
<p><span style="font-size: 16px"><strong>附.TReplaceFlags 类型</strong>（TReplaceFlags指示如何执行搜索和替换操作）</span></p>
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;"><span style="font-size: 16px">type TReplaceFlags = set of (rfReplaceAll, rfIgnoreCase);
</span></pre>
</div>
<p><span style="font-size: 16px">参数：</span></p>
<ul>
<li><span style="font-size: 16px">rfReplaceAll&nbsp; //替换所有事件。如果不存在此标志，则只替换第一个出现的目标子字符串。</span></li>
<li><span style="font-size: 16px">rfIgnoreCase&nbsp; //不敏感地匹配子字符串大小写的出现。如果不存在此标志，则只考虑区分大小写的匹配。</span></li>
</ul>
<p><span style="font-size: 16px"><strong>示例：</strong></span></p>
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;"><span style="font-size: 16px">var
    sStr: String;
begin
    sStr:= 'Hi TaoRoy 2022 ';
    ShowMessage(StringReplace (sStr, 'o', 'i', []));//Hi TaiRoy 2022替换第一个

    sStr:= 'Hi TaoRoy 2022 ';
    ShowMessage(StringReplace (sStr, 'o', 'i', ));//Hi TaiRiy 2022替换所有
   
    sStr:= 'Hi TaoRoy 2022 Open the world ';
    ShowMessage(StringReplace (sStr, 'o', 'i', )); //Hi TaiRiy 2022 Open the wirld//替换所有，区分大小写
   
    sStr:= 'Hi TaoRoy 2022 Open the world ';
    ShowMessage(StringReplace (sStr, 'o', 'i', ));//Hi TaiRiy 2022 ipen the wirld//替换所有，不区分大小写
</span></pre>
</div>
<p><span style="font-size: 16px">　　</span></p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p><span style="color: rgba(136, 136, 136, 1)">创建时间：2022.02.17　　更新时间：</span></p>

</div>
<div id="MySignature" role="contentinfo">
    博客园 滔Roy https://www.cnblogs.com/guorongtao 希望内容对你有所帮助，谢谢！<br><br>
来源：https://www.cnblogs.com/guorongtao/p/15904496.html
頁: [1]
查看完整版本: Delphi 字符串替换 SysUtils.StringReplace