Problema com FOR

[christianhess 0]

Tenho um grande problema... Tenho que comparar 2 Listbox... Os itens que estiverem diferentes terão que ser colocados em outro ListView.

Cada Item que for pego do 1º ListView, tem que ser compadarado com todos os Itens do 2º ListBox... :mellow: E depois pegar o 2º item do 1º ListBox e comparar com todos do 2º ListView... e assim por diante.. Eu estava fazendo com FOR, de uma olhada...

 

for j := 0 to listbox2.items.count -1 do begin      if listbox2.Items[j] = listbox1.Items[i] then begin        next;        end        else begin        unknown.Items.Add(listbox1.items[i]);        next;      end;end;

Mas nunca da certo, alguém pode me ajudar? Por favor, URGENTE!

Obrigado! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

abraços!!

[Graymalkin 0]

Cada Item que for pego do 1º ListView, tem que ser compadarado com todos os Itens do 2º ListBox...  :mellow:   E depois pegar o 2º item do 1º ListBox e comparar com todos do 2º ListView... e assim por diante.. Eu estava fazendo com FOR, de uma olhada...

Então, você deveria colocar um outro FOR dentro do primeiro.Abraços,Graymalkin

[christianhess 0]

Mas eu fiz, ali ta vendo... da erro, please help!

[thalesoli 0]

Tenta essa ai

 

procedure TForm1.Button2Click(Sender: TObject);var  i, p : integer;begin  ListBox3.Items.Clear;  for i := 0 to ListBox1.Items.Count - 1 do begin    p := ListBox2.Items.IndexOf(ListBox1.Items[i]);    if p = -1 then      ListBox3.Items.Add(ListBox1.Items[i]);  end;  for i := 0 to ListBox2.Items.Count - 1 do begin    p := ListBox1.Items.IndexOf(ListBox2.Items[i]);    if p = -1 then      ListBox3.Items.Add(ListBox2.Items[i]);  end;end;

Falow

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Graymalkin 0]

Mas eu fiz, ali ta vendo... da erro, please help!

<{POST_SNAPBACK}>

Hummm... conte novamente a quantidade de "For"s que você está vendo naquele código. Eu só estou vendo o "for j := 0 to listbox2.items.count -1 do begin".

 

Abraços,

 

Graymalkin

[christianhess 0]

Tenta essa ai

 

procedure TForm1.Button2Click(Sender: TObject);var  i, p : integer;begin  ListBox3.Items.Clear;  for i := 0 to ListBox1.Items.Count - 1 do begin    p := ListBox2.Items.IndexOf(ListBox1.Items[i]);    if p = -1 then      ListBox3.Items.Add(ListBox1.Items[i]);  end;  for i := 0 to ListBox2.Items.Count - 1 do begin    p := ListBox1.Items.IndexOf(ListBox2.Items[i]);    if p = -1 then      ListBox3.Items.Add(ListBox2.Items[i]);  end;end;

Falow

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

<{POST_SNAPBACK}>

Cara deu certo, obrigado! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/bye1.gif