Pesquisa usando ListView
Oi
Estou aqui de novo,
e gostaria de saber como faço pesquisa em um ListView, usando um Edit.
Desde já agradeço!
Estou aqui de novo,
e gostaria de saber como faço pesquisa em um ListView, usando um Edit.
Desde já agradeço!
Lucas.bernieri
Curtidas 0
Respostas
Adriano Santos
30/03/2008
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
Lucas.bernieri
30/03/2008
Você é crack em cara!
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:
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
Adriano Santos
30/03/2008
Você é crack em cara!
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:
Hummm, ai é mais complicado.
GOSTEI 0