Zwei stringlisten vergleichen[Gelöst]

[blink182]

Trotzdem nochmal hier

Delphi-Quellcode:

var
a: TStringlist;
 b: TStringlist;


procedure TForm1.FormCreate(Sender: TObject);
begin
a:=Tstringlist.create;
b:=Tstringlist.create;
a.LoadFromFile('a.txt');
b.loadfromfile('b.txt');
end;

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
for i:=0 to a.count-1 do
begin
for j:=0 to b.count-1 do
begin
if a[i]=b[j] then
Memo1.lines.add('a'+inttostr(i)+' entspricht '+'b'+inttostr(j));
end;
end;
Showmessage(inttostr(Memo1.lines.count));
end;

a.txt

Haus
Hallo
Kekse
Baum


b.txt

Ort
Hallo
Haus
Keks

Showmessage:2