关于字符串替换的问题，马上结账！！！！！！

Question

另两个替换字符串中子串的函数
function repl_substr( sub1, sub2, s: string ): string;
var i: integer;
begin
   repeat
     i := pos( sub1, s ) ;
     if i > 0 then begin
       delete( s, i, Length(sub1));
       insert( sub2, s, i );
     end;
   until i < 1;
   Result := s;
end;

Answer 1

嗯~~同意楼上就是通过delete不要的字符串，insert要添加的字符串

Answer 2

参数说明：
  s:整个字符串，token是字符串中需要备替换的部分 newtoken是新的替换内容
function ReplaceString(var S: string; const Token, NewToken: string; bCaseSensitive: Boolean): Boolean;
var
  I         : Integer;
  sFirstPart: string; 
begin
  if bCaseSensitive then
    I := AnsiPos(Token, S)
  else
    I := AnsiPos(AnsiUpperCase(Token), AnsiUpperCase(S));
  
  if I <> 0 then
  begin
    sFirstPart := Copy(S, 1, I - 1) + NewToken; // 磷礚絘患癹
    S := Copy(S, I + Length(Token), Maxint);
  end;
  
  Result := I <> 0;
  if Result then
  begin
    ReplaceString(S, Token, NewToken, bCaseSensitive);
    S := sFirstPart + S;
  end;
end;