Comparar 2 Listbox

[Guest Visitante feliz]

Boa noite,

gostaria de saber como faço para comparar 1 listbox com os processos atuais já exibidos em outor listbox e exibir uma mensagem informando qual programa em execução existe na lista.

Obs: O programa já pega os processos atuais e joga no listbox,

como já pega os nomes do arquivo.txt e joga em outro listbox.

Grato.

[Guest Visitante Feliz]

bom como não da pra edita melhor explicando:

tenho o listbox1 que contem o nome de cada processo em execução (os Captions)

e outro listbox quem puxa uma lista de um arquivo.txt

preciso que em 1 botao verifique qual dos nomes do arquivo.txt esta em execução, no caso estando no listbox1.

Grato.

[Micheus]

bom como não da pra edita melhor

é só se registrar. ;)

tenho o listbox1 que contem o nome de cada processo em execução (os Captions)

e outro listbox quem puxa uma lista de um arquivo.txt

preciso que em 1 botao verifique qual dos nomes do arquivo.txt esta em execução, no caso estando no listbox1.

Visitante Feliz, você pode fazer isto através do método IndexOf da propriedade Items do TListBox (que é um TStrings). Voce "varre" a primeira lista procurando itens na segunda lista:

procedure TForm1.BtnCompara(Sender :TObject);
var
  Idx :Integer;
begin
  for Idx := 0 to ListBox1.Items.Count -1 do
  begin
    if ListBox2.Items.IndexOf(ListBox1.Items[Idx]) >=0 then
    begin
   // achou texto
    end else
    begin
   // não encontrou
    end;
  end;
end;

t+

[Pablo Polícia]

me ajudou bastante.

vlw

:rolleyes:

[Guest --Tiago --]

bom como não da pra edita melhor

é só se registrar. ;)

tenho o listbox1 que contem o nome de cada processo em execução (os Captions)

e outro listbox quem puxa uma lista de um arquivo.txt

preciso que em 1 botao verifique qual dos nomes do arquivo.txt esta em execução, no caso estando no listbox1.

Visitante Feliz, você pode fazer isto através do método IndexOf da propriedade Items do TListBox (que é um TStrings). Voce "varre" a primeira lista procurando itens na segunda lista:

procedure TForm1.BtnCompara(Sender :TObject);
var
  Idx :Integer;
begin
  for Idx := 0 to ListBox1.Items.Count -1 do
  begin
    if ListBox2.Items.IndexOf(ListBox1.Items[Idx]) >=0 then
    begin
   // achou texto
    end else
    begin
   // não encontrou
    end;
  end;
end;

t+