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 =)!