Hallo,
ich muss bei einer 80 MB großen Datei alle doppelten un leeren Zeilen entfernen
So dauert das eine Ewigkeit:
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