KillDuplicates gibt Fehler mit CoolTrayIcon?

[lucius]

RavenIV, ich habe die Anzahl neu gesetzt nachdem Killduplicates ausgefuehrt wurde, aber das will auch nicht so.
Wenn ich jetzt Killdublicates weg lasse, laeuft alles wunderbar ausser das wenn ich jetzt die Listview neu laden moechte mit

Delphi-Quellcode:

Var Sl:Tstringlist;
    i,Anzahl:integer;
    Listitem:Tlistitem;
begin
  //speedbutton1.Visible := false;
  Screen.Cursor := crHourGlass;
  Listview.Items.BeginUpdate;
  Listview.items.clear;
  sl:=TStringList.Create;
  try
    sl.LoadFromFile(label2.caption +  '\torrents.db'); <---- hierdrin koennen doppelte sitzen
    //anzahl lesen
    anzahl:=strtoint(sl[0]);
    for i:=0 to anzahl do
      begin
        listitem:=listview.Items.add;
        //caption des items lesen
        listitem.Caption := sl[i*2+1];
        //alle subitems des items mit einmal lesen
        listitem.SubItems.CommaText := sl[i*2+2];
      end;
  finally
  Groupbox2.Caption := 'Anzahl torrents:  ' + IntTostr(Listview.Items.count);
    sl.free;
    Listview.Items.EndUpdate;
  end;
Screen.Cursor := crDefault;
end;

Dan werden die (doppelte) Eintraege mit in der Listview angezeigt und das moechte ich beheben.

Zitat:

Da hast du doch die Fehlermeldung.
was ist da so schwer zu verstehen?

Weil egal was ich mache ich jedesmal Index out of bounds bekomme, wenn ich Killdublicates in den oberen Code setze.