Fazer pesquisa incremental

Prob.: Gostaria de montar um formulário de pesquisa com um DBGrid e um Edit de modo que, enquanto o usuário digita um nome do Edit, o registro vai sendo localizado no DBGrid. Como fazer?


- 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.