Items zweier ListBoxen vergleichen -> doppelte Items löschen

[Koma-Code]

Probiers mal so:

Delphi-Quellcode:

var
 e : Integer;

begin
e := 0;
while e < ListBox1.Items.Count-1 Do
 begin
  If ListBox2.Items.IndexOf(ListBox1.Items.Strings[e]) <> -1 then
   begin
    ListBox1.Items.Delete(e);
   end
  else e := e+ 1;
 end;
end;