Comparar dados

[douglaspr]

Boa noite tenho 2 listbox,

em um é listado alguns dados e em outro a classe de todas janelas abertas etc.

gostaria de saber como comparar os 2 listbox,

o codigo atual de tudo é esse:

Compara:

procedure TForm1.BitBtn2Click(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
   showmessage('achou');
    end else
    begin
   showmessage('não achou');
    end;
  end;
end;

Lista classes:

function EnumWindowsProc(H : HWnd) : Boolean; Export; {$ifdef Win32} StdCall; {$endif}
var
  ClassName : Array[0..255] of char;
begin
  GetClassName(H,ClassName,SizeOf(ClassName));

if StrLen(ClassName) <> 0 then
Form1.ListBox2.Items.Add(StrPas(ClassName));
Result := True;
end;

funciona porem exibe varias vezes e os dois resultados (achou e não achou).

grato.

[Jhonas]

Boa noite tenho 2 listbox,

em um é listado alguns dados e em outro a classe de todas janelas abertas etc.

gostaria de saber como comparar os 2 listbox,

Modifique para o seu uso

procedure TForm1.Button1Click(Sender: TObject);
var i, j, cont : integer;  s : string;
begin
   cont := 0;
   for i := 0 to ListBox1.Items.Count-1 do
     for j := 0 to ListBox2.Items.Count-1 do
        begin
           if trim(ListBox1.Items.Strings[i]) = trim(ListBox2.Items.Strings[j]) then
              begin
                 inc(cont);
                 s := s + ' - ' + ListBox1.Items.Strings[i];
              end;
        end;

   showmessage('Total de itens iguais = ' + inttostr(cont) + #13 +
   'Itens = ' + s);
end;

abraço