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

相关信息:


欢迎光临本社区,您还没有登录,不能发贴子。请在 这里登录