Delphi 字符串替换

  • 函数类型: 自定义函数

  • 函数说明:

字符串替换


  • 代码如下:



 /// 
/// 字符串替换
/// 
/// 
/// 原字符串
/// 
/// 
/// 需要替换的子字符串
/// 
/// 
/// 新子字符串
/// 
/// 
/// 替换子串后的结果
/// 

function StringReplaceEx(const st, oldSubstr, newSubStr: string): string;
var
  idx, len: Integer;
  iStart: Integer;
  sb: TStringBuilder;
begin
  len := Length(oldSubstr);
  iStart := 1;
  sb := TStringBuilder.Create;
  try
    repeat
      idx := PosX(oldSubstr, st, iStart);
      if idx > 0 then
      begin
        sb.Append(Copy(st, iStart, idx - iStart));
        sb.Append(newSubStr);
        iStart := idx + len;
      end;
    until idx <= 0;
    sb.Append(Copy(st, iStart, Length(st)));
    Result := sb.ToString;
  finally
    sb.DisposeOf;
  end;
end;



  • 用法示例:

无 



《学习大师原创文档,请勿转载,侵权必究》





联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678