So marabu, habe deine Function ausprobiert aber nog immer Listindex out of Bounds(2).
Delphi-Quellcode:
try
sl.LoadFromFile(label2.caption + '\torrents.db');
//anzahl lesen
KillDuplicatesEx(sl, 2);
for i := 0 to Pred(sl.Count) do <------ out of bounds(2)
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;
So sieht die torrents.db vor dem laden aus.
Zitat:
2005-11-30,"Muziek - Album","Rene Froger - Pure Christmas (2005)","102.91 MB","7 seeders and 20 leechers","172.12 kB/s",http://www.liquidtorrent.org/details.php?id=8607&hit=1,"http://www.liquidtorrent.org/download.php/8607/Rene Froger - Pure Christmas.torrent" ////Doppelt muesste also raus////
2005-11-30,"Muziek - Album","Rene Froger - Pure Christmas (2005)","102.91 MB","7 seeders and 20 leechers","172.12 kB/s",http://www.liquidtorrent.org/details.php?id=8607&hit=1,"http://www.liquidtorrent.org/download.php/8607/Rene Froger - Pure Christmas.torrent"
2005-11-30,"Apps - PC","Driver Genius Professional Edition 2005, Version:6.0.1882","5.66 MB","22 seeders and no leecher","22.43 kB/s",http://www.liquidtorrent.org/details.php?id=8606&hit=1,"http://www.liquidtorrent.org/download.php/8606/Driver Genius Professional Edition 2005.rar.torrent"
2005-11-30,"Films - DVDr","End of Days","4.51 GB","no seeders and 11 leechers","51.91 kB/s",http://www.liquidtorrent.org/details.php?id=8605&hit=1,"http://www.liquidtorrent.org/download.php/8605/end of days.torrent"
Ich wuesste nicht was ich noch alles probieren muesste?
MFG, Lucius.