como fazer comparação de 2 stringlist

Delphi

28/10/2004

Olá amigos

Preciso da ajuda de voces para resolver um problema. Tenho 2 stringlist e preciso comparar o conteudo dos dois. Caso o valor do primeiro esteja no segundo, excluir o valor do segundo de modo que fiquem apenas valres que não estão presentes no primeiro. Alguem tem uma ideia pra se fazer isso, já tentei de várias formas e não consegui.

Obrigado
Sanses


Sanses

Sanses

Curtidas 0

Respostas

Marcelo Saviski

Marcelo Saviski

28/10/2004

se fosse para comparar uma stringlist com outra poderia usar:
if StringList1.Equals(StringList2) then


não sei se a melhor forma e se funciona, mas um teste:

for I := 0 to StringLis1.Count - 1 do
begin
  if StringList2.Find(StringList1[I], Index) then
  begin
    StringLis2.Delete(Index);
  end
  else
    Inc(I);
end;



GOSTEI 0
Sanses

Sanses

28/10/2004

Obrigado pela dica amigo, mas não consegui implementar no meu código. dis que o index não é declarado.....


Obrigado pela atenção
Sanses


GOSTEI 0
Afarias

Afarias

28/10/2004

Index é uma variável integer qualquer (q vc deve declarar)


T+


GOSTEI 0
Sanses

Sanses

28/10/2004

Ok, depois que postei que percebi isso. Mas mesmo assim não funcionou a dica acima, pois na hora em que vai incrementar o contador dá erro. Obrigado

Sanses


GOSTEI 0
Adilsond

Adilsond

28/10/2004

var
  I, J: Integer;
begin
  for I := 0 to ListBox1.Items.Count - 1 do
    begin
      J := ListBox2.Items.IndexOf(ListBox1.Items.Strings[I]);
      if J > -1 then
         ListBox2.Items.Delete(J);
    end;
end;



GOSTEI 0
POSTAR