Delphi 80 MB Datei - doppelte Zeilen entfernen - Seite 2

Thema durchsuchen

Ansicht

Themen-Optionen

80 MB Datei - doppelte Zeilen entfernen

Ein Thema von capo · begonnen am 17. Jan 2007 · letzter Beitrag vom 18. Jan 2007

Vorheriger Beitrag

Nächster Beitrag

capo

Registriert seit: 7. Jul 2006
453 Beiträge

Delphi 11 Alexandria

80 MB Datei - doppelte Zeilen entfernen

17. Jan 2007, 09:29

Hallo,
ich muss bei einer 80 MB großen Datei alle doppelten un leeren Zeilen entfernen
So dauert das eine Ewigkeit:

markieren

Delphi-Quellcode:

			if FileExists('logfile.txt') then

begin

  FWords := THashedStringList.Create;

  application.ProcessMessages;

  FWords.LoadFromFile(

    ExtractFilePath(Application.ExeName) + 'logfile.txt');

  lv.Items.Count := FWords.Count;

  DeleteDuplicates(Fwords);

gruss vom capo