2 Listen vergleichen

[blooddog_90]

Guten Tag Alle zusammen =)!


ich möchte zwei Listen vergleichen. Der Inhalt dieser sieht immer so aus:

213456
436745
3245
923476
12375
[...]

Die Inhalte der beiden Dateien unterscheiden sich stark. Aber ich will eben, dass Werte aus Datei 1 nicht in Datei 2 vorkommen. Aber die Werte die in Datei 1 existieren, jedoch aber nicht in Datei 2, sollen hinzugefügt werden zu Datei 2. - ja ^^

So würde meine fake-Prozedur aussehen:

Delphi-Quellcode:

var
dat1: TStringlist;
dat2: TStringlist;


procedure TForm1.FormCreate(Sender: TObject);
begin
  dat1:=Tstringlist.create;
  dat2:=Tstringlist.create;
  dat1.LoadFromFile('1.txt');
  dat2.loadfromfile('2.txt');
end;

// Werte löschen;
procedure TForm1.Button1Click(Sender: TObject);
var i,j,k:integer;
begin
  for i:=0 to dat2.count-1 do
    for j:=0 to dat1.count-1 do
      if dat2[i]=dat1[j] then
      //lösche dat2[i] in '2.txt';
 for k:=0 to dat1.count-1 do
  //dat[k] zu '2.txt' hinzufügen
end;

Wird das funktionieren? Und wie müsste der Code aussehen dort wo meine Kommentare jetzt sind? Bitte helft mir =)!