tstringlist的用法,小菜.....帮解惑....

  if not adlist.Find(id,index) then
       adlist.AddObject(id,ad);
  else
    begin
       adlist.Delete(i);
       adlist.AddObject(id,ad);
    end;//如果标识已存在,则删除该对应元素.如不存在,直接增加,//adlist为TStringList对象,id为要增加的标识符,ad为要增加的对像运行后,adlist中仍有重复的内容?大家有什么好的办法解决吗/