[Neftali [Germán.Estévez]]

Empezado por Caro

Código Delphi [-]
 for i:=ListBox1.Count-1 downto 0  do
  begin
   if ListBox2.Items.IndexOf(ListBox1.Items[i])=-1 then
    ListBox1.Items.Delete(i);
  end;

Yo que estaba intentando que lo hiciera él...
Ahora perdió la gracia...