DBR Delphi-Ecke

// getestet mit D4 unter Win98

// Zwei Textdateien werden auf Übereinstimmung ihres Inhaltes geprüft.
// Siehe auch: Binäre Dateien vergleichen

function VergleicheTextDateien(datei1, datei2: string): string; 
var ts1, ts2: TStringlist; 
begin 
  result := 'gleich'; 
  ts1 := TStringlist.create; 
  ts2 := TStringlist.create; 
  ts1.loadfromfile(datei1); 
  ts2.loadfromfile(datei2); 
  if not ts1.equals(ts2) then result := 'un' + result; 
  ts2.free; 
  ts1.free; 
end; 
 
procedure TForm1.Button4Click(Sender: TObject); 
begin 
  showmessage('Die Dateien sind ' + 
    VergleicheTextDateien('c:\test1.txt', 'c:\test2.txt')); 
end;

//-------------------------------------------------------------------

// Die Dateien Text1.txt und Text2.txt werden auf Übereinstimmung ihres
// Inhaltes geprüft und alle Unterschiede in Text3.txt geschrieben.
// Leerzeilen werden dabei nicht berücksichtigt.

procedure TForm2.Button1Click(Sender: TObject); 
var 
  d1, d2, d3: TStringlist; 
  dat1, dat2, dat3: string; 
  x: integer; 
begin 
  d1 := TStringlist.create; 
  d2 := TStringlist.create; 
  d3 := TStringlist.create; 
  dat1 := 'C:\text1.txt'; 
  dat2 := 'C:\text2.txt'; 
  dat3 := 'C:\text3.txt'; 
  d1.loadfromfile(dat1); 
  d2.loadfromfile(dat2); 
  for x := 0 to d1.count - 1 do 
    if (d2.indexof(d1[x]) < 0) and (trim(d1[x]) <> '') 
      then d3.add(d1[x]); 
  for x := 0 to d2.count - 1 do 
    if (d1.indexof(d2[x]) < 0) and (trim(d2[x]) <> '') 
      and (d3.indexof(d2[x]) < 0) 
      then d3.add(d2[x]); 
  d3.savetofile(dat3); 
  d3.free; 
  d2.free; 
  d1.free; 
end;