borrar los items de listbox1 que no existan en listbox2

[danyfebrero]

hola gracias por todo Caro y a ti también Neftali en especial porque querias que me superara.... por cierto por qué debe comenzar desde el final?. saludos y gracias

[Casimiro Noteví]

Empezado por danyfebrero

hola gracias por todo Caro y a ti también Neftali en especial porque querias que me superara.... por cierto por qué debe comenzar desde el final?. saludos y gracias

Pruébalo desde el principio y verás el resultado , así se aprende

[danyfebrero]

disculpen, y si quisiera que se borraran del listbox1 los que se repiten en el listbox2, cómo haría?
gracias otra vez

[danyfebrero]

hola
casimiro graciasm pero sigo sin enterder, porque normal no hace nada o me da un error de desbordamiento....
jejeje
probe poniendo = o cero al codigo que me dio Cairo pero solo me borra un item sigo sin lograr que me borre los existentes en el listbox2
disculoenme, saludos y gracias

[ecfisa]

Empezado por danyfebrero

disculpen, y si quisiera que se borraran del listbox1 los que se repiten en el listbox2, cómo haría?
gracias otra vez

Hola.

No me queda claro si deseas borrar del ListBox1 aquellos datos que existen mas de una vez en ListBox2, o si te refieres a aquellos datos de ListBox1 que existen en ListBox2.

Saludos.

[danyfebrero]

hola
me refiero a aquellos datos de ListBox1 que existen en ListBox2.
traté con este codigo pero si no me borra los item que estan repetido si hay dos Pedro solo me borra 1

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

ufff es muy complicado programar, que sería sin ayuda????
saludos y muchas gracias

[danyfebrero]

hola
probé con este codigo y funcionó pero no sé si está del todo bien:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var I,Y:integer;
begin

for i:=ListBox2.Count-1 downto 0  do
  for y:=ListBox1.Count-1 downto 0  do
    with ListBox1.Items do Delete (IndexOf(ListBox2.Items[i]));
end;

si me pudieran decir
gracias y saludos

[ecfisa]

Empezado por danyfebrero

hola gracias por todo Caro y a ti también Neftali en especial porque querias que me superara.... por cierto por qué debe comenzar desde el final?. saludos y gracias

Hola.

El error sucede por que el for recorre ListBox1 desde 0 a ListBox1.Count-1, pero cuando un ítem es borrado ya no existen ListBox1.Count-1 ítems, si no menos. Por lo que en algún punto, ListBox1.Items[i] estará referenciando a una posición que ya no existe.


Saludos.

[ecfisa]

me refiero a aquellos datos de ListBox1 que existen en ListBox2.

Hola.

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

Saludos.

[danyfebrero]

gracias Ecfisa es usted muy amable me funcionó perfecto
saludos y gracias una vez más