Buscar en ListView y mostrar solamente los datos encontrados.

[[nlsgarcia]]

wolfran_hack,

Empezado por wolfran_hack

...Se necesita buscar en el ListView Nombres registrados varias veces o que ya esta registrado...eliminar "de la lista" los que no queremos ver y así obtener el resultado de la búsqueda...

Revisa este código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
   i : Integer;
   StrList : TStringList;
begin
   StrList := TStringList.Create;
   StrList.Duplicates := dupIgnore;
   StrList.Sorted := True;
   for i := ListView1.Items.Count-1 downto 0 do
   begin
      if LowerCase(ListView1.Items[i].SubItems[0]) = LowerCase(Edit1.Text) then
         StrList.Add(ListView1.Items[i].SubItems[0])
      else
         ListView1.Items.Delete(i);
   end;
   ShowMessage(StrList.Text);
   StrList.Free;
end;

EL código anterior busca por medio de un control TEdit un valor coincidente dentro de un control TListView realizando 2 acciones:

1- Si encuentra el valor lo almacena en una variable TStringList que no permite duplicados, lo cual asegura almacenar una sola vez el valor encontrado en el caso de existir registros duplicados para su posterior procesamiento según se requiera.

2- Elimina los valores que no son coincidentes con el valor de búsqueda del TListView a efectos visuales de la búsqueda.

Espero sea útil

Nelson.