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.