KillDuplicates gibt Fehler mit CoolTrayIcon?

[marabu]

Lucius, du darfst die Anzahl nicht mit rausschreiben - es ist dann keine CSV-Datei mehr und du bekommst die Zahl ja später problemlos wieder, wenn du die Datei mit LoadFromFile() einliest. Außerdem müssen alle Spaltenwerte in einer Zeile stehen, damit der Code zum Einlesen funktioniert, den ich dir weiter oben (#22) gegeben habe.

Delphi-Quellcode:

var 
  slLines, slFields: TStringList;
  i: integer;
begin
  slFields := TStringList.Create;
  slLines := TStringList.Create;
  try
    with ListView do
      for i := 0 to Pred(Items.Count) do
      begin
        slFieldsl.Assign(Items[i].SubItems);
        slFields.Insert(0, Items[i].Caption);
        slLines.Add(sfFields.CommaText);
        slFields.Clear;
      end;
    slLines.SaveToFile(label2.caption +  '\torrents.db');
  finally
    slLines.Free;
    slFields.Free;
  end;
end;

marabu