delphi的一个字符串操作问题

来源：百度知道 编辑：UC知道 时间：2024/06/05 07:36:42
好比有一个字符串
例如：
15 52 41 4200 506 230 13 45601 5
目前我的目的是将4200修改成别的字符串

目前我只知道4200在字符串的位置，还有我要修改的字符串的长度
有什么方法可以修改后，后面的字符串保持原样。

已经有4200的位置为pos,目标字符串str

请问有什么函数可以用

参数设置如下:
要修改字符的长度：sLength （或者用length（‘要替换字符串’）获得，见下面代码）
位置：pos
用来替换的新字符串：str
原字符串 ： s

基本函数 实现 方法：

delete(s, pos, slength );
//delete(s,pos,length('4200');
insert(str,s,pos);

要替换字符串可以用StringReplace函数
例如将15 52 41 4200 506 230 13 45601 5中的4200替换为1234

const
s = '15 52 41 4200 506 230 13 45601 5';
begin
ShowMessage(StringReplace(s,'4200','1234',[rfReplaceAll]));
end;

StringReplace(str,'4200','xxxx',[rfReplaceAll]);

var
s: string;
begin
s := '15 52 41 4200 506 230 13 45601 5';
s := StringReplace(s,'4200','8888',[rfReplaceAll,rfIgnoreCase]);//将4200取代为 8888
showmessage(s);
end;

用StringReplace
var
s:string;
begin
s:='12315 321123 444456 12315';
s:=StringReplace(s,'12315','11235',[rfReplaceAll,rfIgnoreCase])
end;
St