File compare

[blauweiss]

Zitat von DeddyH:

Ob Hash oder die Zeile selbst dürfte doch aus Logiksicht egal sein. Nimm Dir also eine Zeile aus der ersten Datei, suche sie in der zweiten und lösche sie bei Fund aus beiden Stringlisten. Das machst Du Zeile für Zeile, was am Schluss übrig bleibt sind die Unterschiede.

Genau !
Oder einfach andersrum, wie bei mir: Die nicht gefundenen (=unterschiedlichen) werden gesucht.

@value is NULL:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  AddedList, MissingList: TStringList;
begin
  AddedList := TStringList.Create;
  MissingList := TStringList.Create;
  try
    GetTextFileDifferences('C:\Alt.txt', 'C:\Neu.txt', AddedList, MissingList);

    ...AddedList enthält jetzt die Einträge von Neu.txt, die nicht in Alt.txt sind
    ...MissingList enthält die Einträge von Alt.txt, die nicht in Neu.txt sind

  finally
    AddedList.Free;
    MissingList.Free;
  end;
end;

Gruss
blauweiss