80 MB Datei - doppelte Zeilen entfernen

[Mavarik]

Zitat von Der_Unwissende:

Delphi-Quellcode:

  while not(eof(fd1)) do
    begin
      readln(fd1,S);
      if (trim(S)<>'') and (S <> LAST) then
      begin
        writeln(fd2,S);
        Last := S;
      end; 
    end;

Ja genau, das Begin end hat gefehlt...

Wer will schon aus einen Logfile alle doppelten killen? Oder ist das so..

Frank