Ich hatte es genau andersherum verstanden. Dann ändere mal die If-Abfrage von < 0 auf >= 0. Achwas, ich mache das eben selbst:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
//alle Einträge von ListBox1 durchgehen
for i:=0 to Listbox1.Items.Count-1 do
//wenn Eintrag in ListBox2 auch vorhanden
if ListBox2.Items.IndexOf(Listbox1.Items[i]) >= 0 then
//ins Memo schreiben
Memo1.Lines.Add(Listbox1.Items[i]);
end;
[edit] @Mario: ich hatte die Einträge ins Memo geschrieben, die
nicht in ListBox2 vorkommen
. Lag wohl an dem Begriff "Sperrliste"
[/edit]