Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
30. Nov 2005
Hi Lucius,
du hast doch vor dem Laden der Items (#22) bestimmt die ListView mit Items.Clear geleer. Hast du auch Items.BeginUpdate und Items.EndUpdate verwendet? Das würde alles etwas schneller machen. Und wenn es das nicht ist, dann müssen wir die Zeiten einmal messen.
marabu
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
30. Nov 2005
Raus damit. Wofür sollen die gut sein?
marabu
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
30. Nov 2005
Jetzt wo du satt bist, solltest du mal nachsehen, ob da Leerzeilen zwischen den Datenzeilen in der Textdatei sind.
marabu
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
30. Nov 2005
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:
var
FieldList: TStringList;
begin
FieldList := TStringList.Create;
// ...
try
sl.LoadFromFile(label2.caption + ...
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
30. Nov 2005
Mein Vorschlag wäre:
procedure KillDuplicatesEx(s: TStrings; index: integer);
var
iLow, iHigh: integer;
sLow, sHigh: TStringList;
begin
sLow := TStringList.Create;
sHigh := TStringList.Create;