是不是有个字符串函数,可以将'abc/abc/abc'改成:'abc//abc//abc' delphi是不是有个字符串函数,可以将'abc/abc/abc'改成:'abc//abc//abc'我记得有的,不记得是哪一个了,BAIDU都找不到 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var s:String;begin s := 'abc/abc/abc'; s := StringReplace(s,'/','//',[rfReplaceAll]); ShowMessage(s);end; 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; 急,在线等。。高手进。。 delphi如何直接操作16进制? 100大分相送,在线等待--求读取内存流问题。 关于BLOB的读写问题! 还是dbgrid 高分求助!word文档显示问题 有谁用过爱立信的T29sc吗? 谁知道delphi6的安装(打包)程序怎么用 小毛病,大问题3 搞程序没有不加班的,请问编程的同志是否有加班费?欢迎大家积极来此留言讨论! 谁有网页游戏的源代码 changecount为什么总是0
var
s:String;
begin
s := 'abc/abc/abc';
s := StringReplace(s,'/','//',[rfReplaceAll]);
ShowMessage(s);
end;
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;