Autor
Mensagem
Postado em: 24/11/2010 4:06:33 PM
Pessoal...
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.
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.
Postado em: 25/11/2010 11:25:52 AM
Sim... já tentei. Mas como eu disse é um ListView e o Locate não funciona neste componente.
Postado em: 25/11/2010 11:31:39 AM
Citação:
Sim... já tentei. Mas como eu disse é um ListView e o Locate não funciona neste componente.
Sim... já tentei. Mas como eu disse é um ListView e o Locate não funciona neste componente.
Não tenho como testa aqui mas teste ai e poste aqui qualquer coisa.
#Código
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;
Postado em: 25/11/2010 4:11:27 PM
Leonardo...
Tentei usar o codigo que me passou mas nao funcionou.
Tentei usar o codigo que me passou mas nao funcionou.
Postado em: 26/11/2010 11:36:48 AM
Agora funcionou...
Obrigado.
Obrigado.
Postado em: 26/11/2010 11:37:22 AM
Como faço para finalizar este tópico ???
