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