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;