KillDuplicates gibt Fehler mit CoolTrayIcon?

[marabu]

Lucius, du hast doch gar keine Anzahl in der ersten Zeile von torrents.db stehen - oder? Und deine Indexberechnung in der Schleife kann nicht funktionieren. Wenn der Aufbau der Datei so ist, wie du es weiter oben behauptest, dann musst du es so probieren:

Delphi-Quellcode:

var
  FieldList: TStringList;
begin
  FieldList := TStringList.Create;
  // ...
  try
    sl.LoadFromFile(label2.caption +  '\torrents.db');
    KillDuplicatesEx(sl, 2);
    for i := 0 to Pred(sl.Count) do
    begin
      FieldList.CommaText := sl[i];
      with ListView.Items.Add do
      begin
        Caption := FieldList[0];
        FieldList.Delete(0);
        SubItems.Assign(FieldList);
      end;
    end;
  finally
    FieldList.Free;
    // ...
  end;
  // ...
end;

Hoffentlich habe ich mich nicht zu oft verschrieben...

marabu