Buscar por:

Fazendo uma pesquisa incremental

Código

{- Crie um índice na tabela com campo a ser usado na pesquisa.

Coloque no Form:

- Um DataSource

- Um Table

- Um DBGrid

- Um Edit

Altere as seguintes propriedades:

- DataSource1.DataSet = Table1

- Table1.DatabaseName = 'NomeDoAlias'

- Table1.TableName = 'NomeDaTabela'

- Table1.IndexFieldNames = 'NomeDoCampo'

- Table1.Active = true

- DBGrid1.DataSource = DataSource1

Escreva a instrução abaixo no evento OnChange do Edit:

Table1.FindNearest([Edit1.Text]);

Observações

Este exemplo considera que o campo seja tipo string. Para outros tipos de campos pode ocorrer erro dependendo dos valores digitados no Edit1. }