DBR Delphi-Ecke

// Aus einer Textdatei werden doppelte Zeilen entfernt.
// Wer sich das Zählen der gelöschten Zeilen schenkt,
// kann auf das erste LoadFromFile verzichten

// Getestet mit D4 unter Win98

function doppeltweg(datei: string): longword; 
var m1, m2: longword; 
  sl: TStringlist; 
begin 
  sl := TStringlist.Create; 
  sl.loadfromfile(datei); 
  m1 := sl.count; 
  sl.sorted := true; 
  sl.loadfromfile(datei); 
  m2 := sl.count; 
  result := m1 - m2; 
  sl.savetofile(datei); 
  sl.free; 
end; 
 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  showmessage('Es wurde(n) ' + inttostr(doppeltweg('c:\test.txt')) + 
    ' Zeile(n) entfernt'); 
end;