Fórum Pesquisa usando ListView #356249
30/03/2008
0
Estou aqui de novo,
e gostaria de saber como faço pesquisa em um ListView, usando um Edit.
Desde já agradeço!
Lucas.bernieri
Curtir tópico
+ 0Posts
31/03/2008
Adriano Santos
procedure TForm1.btnSistemaClick(Sender: TObject);
var
I : Integer;
Palavra: string;
begin
Palavra := Edt1.Text;
for I := 0 to Lv1.Items.Count-1 do
begin
if (Palavra = Lv1.Items[I].Caption) then
begin
Lv1.ItemIndex := I;
Lv1.SetFocus;
Break;
end;
end;
end;
Gostei + 0
01/04/2008
Lucas.bernieri
Mas eu gostaria de ir filtrando (eliminando) os itens que não correspondem a pesquisa, por exemplo:
- quando digita ´L´, todos os itens com iniciais diferentes de ´L´ são apagados.
- quando digina ´Lu´, todos os itens com iniciais diferentes de ´Lu´ são apagados
- e assim por diante
(Não sabia que usar um ListView era tão complicado)
:mrgreen:
Gostei + 0
07/04/2008
Adriano Santos
Hummm, ai é mais complicado.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)