重复信息的问题

                            
for   inx:=0   to   listbox2.Items.Count   -1   do   
        if   pos(listbox2.items[inx],memo2.text)>0   then   //重复信息  
  begin  
    //showmessage('信息重复x');  
        ListBox2.ItemIndex   :=   inx;  
        listbox2.DeleteSelected;  
  以上是删除listbox中的已存在memo1中的信息为什么每次值删去1条阿不是全不删除?  
  谢谢各位帮忙看看阿!

查看回复