怎样将字符串中的某几个字符删除？

[lihero]

如我想将字符串“1002点78周”中的“点”和“周”去掉，该如何写函数，望高手赐教。

[lihero]

在线等待。。。。。

[feng93017]

var
s: string;

begin
s := '1002点78周';
Delete(s, Pos('点', s), 1); //删除了“点”
Delete(s, Pos('周', s), 1); //删除了“周”
ShowMessage(s); //你可以看看结果。
end;

[feng93017]

对不起，没有仔细考虑你说的是汉字，它应该是两个字节
所以正确的代码应该是：
var
s: string;
begin
s := '1002点78周';
Delete(s, Pos('点', s), 2); //删除了“点”
Delete(s, Pos('周', s), 2); //删除了“周”
ShowMessage(s); //你可以看看结果。
end;

[lihero]

谢谢！我试一试先，一定给分。

[ly_liuyang]

是呀两个字节，记得不要搞成一个Byte哦
使用StringReplace也可以达到效果
把“点”“周”替换为空''即可

[leaya11]

s:=copy(s,1,length(s)-2)也行

[ehom]

使用WideString;

var
s: WideString;
begin
s := '1002点78周';
Delete(s, Pos('点', s), 1);
Delete(s, Pos('周', s), 1);
ShowMessage(s);
end;

但这样占用的空间较大

s:=StringReplace(s, '点', '', [rfReplaceAll]);
s:=StringReplace(s, '周', '', [rfReplaceAll]);

也可以,但执行效率比较低,如果不是一次替换很多相同字符就不要用这个