Hallo Leute etwas seltsames ist mir passiert und ich weiss nicht weiter.
Ich benutze ein CoolTrayIcon fuer mein Programm.
Jetzt wollte ich ueber der Function KillDuplicates doppelte Eintraege aus einer TStringListe entfernen aber dabei gibt das CoolTrayIcon einen Fehler aus.
Delphi-Quellcode:
procedure TDemoForm.SpeedButton1Click(Sender: TObject);
Var Sl:Tstringlist;
i,Anzahl:integer;
Listitem:Tlistitem;
begin
Screen.Cursor := crHourGlass;
Listview.Items.BeginUpdate;
Listview.clear;
sl:=TStringList.Create;
try
sl.LoadFromFile(label2.caption + '\torrents.db');
//anzahl lesen
anzahl:=strtoint(sl[0]);
KillDuplicates(sl); <----------------------
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 := 'Aantal torrents: ' + IntTostr(Listview.Items.count);
sl.free;
Listview.Items.EndUpdate;
end;
Screen.Cursor := crDefault;
end;
Der Fehler:
Zitat:
EStringListError List index out of Bounds(813);
Dan fragt er um die.pas file vom Cooltrayicon.
Kan mir bitte einer helfen?
Danke im voraus.