String1中包含有String2,如何从String1中删除String2,并返回删除后的结果? 在线等待...立即结贴!

解决方案 »

  1.   

    String1 := StringReplace(String1, String2, '', [rfReplaceAll]);
    String1 := StringReplace(String1, String2, '', [rfReplaceAll, rfIgnoreCase]);  // 不判断大小写
      

  2.   

    procedure TForm1.Button1Click(Sender: TObject);
    var s1,s2: String;
    begin
      s1 := '1234';
      s2 := '23';
      Delete(s1,Pos(s2,s1),Length(s2));
      ShowMessage(s1);
    end;
      

  3.   

    string.delete()好像有这个函数。
    如果没有就先用pos找到为止,删除string2.length个字符
    或者,找到pos之后,先copy到pos,在空过string2.length格,copy到结束。