delphi是不是有个字符串函数,可以将'abc/abc/abc'
改成:
'abc//abc//abc'
我记得有的,不记得是哪一个了,BAIDU都找不到

解决方案 »

  1.   


    var
      s:String;
    begin
      s := 'abc/abc/abc';
      s := StringReplace(s,'/','//',[rfReplaceAll]);
      ShowMessage(s);
    end;
      

  2.   


    function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string; const S:原来的字符串 
    OldPattern:需要被替换的部分 
    NewPattern:替换后的部分 
    Flags:替换标识,定义如下: type TReplaceFlags = set of (rfReplaceAll, rfIgnoreCase); 具体用法如下:
    StringReplace(原来的字符串,需要被替换的部分,替换后的部分,[rfReplaceAll]) 例子: 
    procedure TForm1.Button1Click(Sender: TObject); 
    var s:string; 
    begin 
      s:=edit1.Text; 
      s:=StringReplace(S,#32,'',[rfReplaceAll]); 
      s:=StringReplace(S,#9,'',[rfReplaceAll]); 
      edit1.Text:=s; 
    end;