中国开发网: 论坛: 程序员情感CBD: 贴子 118540
GoodHope：
这个简单的问题，也好意思问。单循环就能搞掂：
[阅读: 357] 2005-03-23 16:27:38
j := 0
for i = BeginPos to EndPos do begin
if Sour[i] in CKeepChars then begin
Dest[j] := Sour[i];
Inc(j);
end;
end;

相关信息:

欢迎光临本社区，您还没有登录，不能发贴子。请在 这里登录
页面内容处理时间: 0.008 - 469128
CNDEV.ORG 2003-2014 | 贴子列表 | 捐助 | | -ICP -IDC -ISP |