haitao: 你这个需要2倍的空间 [阅读: 282] 2005-03-23 16:37:28 d := 0 for i = BeginPos to EndPos do begin if Sour[i] in CKeepChars then begin if d<>0 then Sour[i+d] := Sour[i] else else Inc(d); end; end; 最后把字符串Sour截短d个字符即可 我的blog:http://szhaitao.blog.hexun.com & http://www.hoolee.com/user/haitao --以上均为泛泛之谈--不尽牛人滚滚来,无边硬伤纷纷现 人在江湖飘(出来混的),哪能不挨刀(总归是要还的) 网络对话,歧义纷生;你以为明白了对方的话,其实呢? 您所在的IP暂时不能使用低版本的QQ,请到:http://im.qq.com/下载安装最新版的QQ,感谢您对QQ的支持和使用