Fórum Pesquisa em TListView #391179
24/11/2010
0
Tenho uma tela de pesquisa com um campo do tipo TComboBox (Código e Descrição) e um campo TEdit para digitação do conteúdo a ser pesquisado. Abaixo tenho um TListView com o conteúdo de uma Query.
Acontece que preciso escolher a opção de busca por Código ou Descrição e no campo digito um registro que tenha no TListView. Mas não consigo fazer uma pesquisa incremental para buscar o conteúdo que digitei.
Peço a ajuda de quem já passou por isso pois estou precisando finalizar o meu projeto.
Estou utlizando Delphi 7 e banco Postgres.
Marcos Gandin
Curtir tópico
+ 0Posts
25/11/2010
Leonardo Xavier
Gostei + 0
25/11/2010
Marcos Gandin
Gostei + 0
25/11/2010
Leonardo Xavier
Não tenho como testa aqui mas teste ai e poste aqui qualquer coisa.
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
Item: TListItem;
begin
for I:= 0 to Listview1.Items.count-1 do
begin
if pos(Edit1.Text, Listview1.Items[I].Caption) <> 0 then
begin
Item:= ListView2.Items.Add;
Item.Assign(ListView1.Items[I]);
end
else
ShowMessage('Não Encontrado');
end;
end;
Gostei + 0
25/11/2010
Marcos Gandin
Tentei usar o codigo que me passou mas nao funcionou.
Gostei + 0
26/11/2010
Marcos Gandin
Obrigado.
Gostei + 0
26/11/2010
Marcos Gandin
Gostei + 0
26/11/2010
Leonardo Xavier
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)