Listview vergleichen und Löschen Problem

[DeddyH]

Und so?

Delphi-Quellcode:

for il:= Listview1.Items.Count -1 downto 0 do
  begin
    if Listview1.Items[il].Checked then
      begin
        FoundAt := Listview2.Items.IndexOf(Listview1.Items[il]);
        if FoundAt > -1 then 
          Listview2.Items.Delete(FoundAt);
        Listview1.Items.Delete(il);
      end; 
  end;