是不是有个字符串函数，可以将'abc/abc/abc'改成：'abc//abc//abc'

[猫工]

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

[willflyz]

是的,用StringReplace

[willflyz]

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

[yct0605]

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;