Pesquisar o proximo

Delphi

16/04/2012

tenho em um clientdataset uma lista de nomes, que nao estao indexados por nome, mas quero pesquisar pela letra inicial do nome, estou usando esse codigo no evento KeyDown do dbgrid:

  if (chr(Key) >= A) and (chr(Key) <= Z)  then
    Produtos.Locate(NOME,chr(Key),[loPartialKey]);


E gostaria que depois que encontrasse o primeiro produto, se eu teclasse novamente a mesma letra, o sistema fosse para o proximo produto com a mesma letra e nao, voltar ao primeiro encontrado, seria possivel ?

Abs
Felipe Ip

Felipe Ip

Curtidas 0

Respostas

José Maciel

José Maciel

16/04/2012

Boa Noite Felipe.
O que você pode fazer é armazenar o valor digitado em uma variável, assim quando fosse digitada pela segunda vez, você poderia fazer a verificação com o if e utilizar o comando
Produtos.Next
GOSTEI 0
João Sobrinho

João Sobrinho

16/04/2012

Colega, pesquise por FindNearest.
GOSTEI 0
POSTAR