wolfran_hack,
Cita:
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.