请教：A和B是两个tstringlist,如何除去B里面所有与A里面相同的项目？用下面的代码为什么会出错呢？

Question

我的意思是，如果是A，B是集合的话，那么我要B-A；  for x:=1 to A.count do 
    for y:=1 to B.count do 
      if a[x-1]=b[y-1] then b.delete(y-1);用如下代码为什么会出错，如何修改呢？万分感谢回答的朋友！
   

Answer 1

for x:=1 to A.count do 
    for y:=B.count-1 downto 0 do 
      if a[x-1]=b[y-1] then b.delete(y-1);因为你在B中删除一个项目后,B的COUNT值就变化了.....所以啊你应当在查询B时,要用DOWNTO来循环.

Answer 2

function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;