Listboxen vergleichen

[Nuclear-Ping]

Und genau das macht Deddy's Code.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  // Gehe LB1 durch ...
  for i:=0 to Listbox1.Items.Count-1 do
    // ... und schaue, ob in LB2 der Eintrag vorhanden ist ...
    if ListBox2.Items.IndexOf(Listbox1.Items[i]) < 0 then
      // ... und schreibe es in Memo1, wenn ja
      Memo1.Lines.Add(Listbox1.Items[i]);
end;