Stringlisten vergleichen.

[Jens Schumann]

Hallo,
versuch es mal so

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
Var 
A, B:Integer; 
begin 
For A := 0 To Memo2.Lines.Count-1 do 
begin 
    For B := 0 To Memo1.Lines.Count -1 do 
        If Memo1.Lines[B] = Memo2.Lines[A] Then 
        begin 
            Memo3.Lines.Add(Memo2.Lines[A]); 
        end; 
    end; 
end;