Buscar por:

Busca aproximada de dados em uma tabela paradox

Código

No Database Desktop, crie uma chave secundária na coluna KEY (pressionando a barra de espaço do teclado ou dois cliques do mouse) em um campo de sua tabela. Na caixa TABLE PROPERTIES selecione e clique no item SECONDARY INDEXES e logo em seguida clique no botão DEFINE...

A janela DEFINE SECONDARY INDEX será apresentada. Selecione o campo com a chave secundária na caixa de lista FIELDS e remova-o para a caixa INDEXED FIELDS e logo em seguida clique em OK...

A janela SAVE INDEX AS será apresentada. Digite um nome qualquer na caixa de texto INDEX NAME e logo em seguida clique em OK...

Agora salve as alterações de sua tabela clicando em SAVE AS...

Abra o seu projeto Delphi. Na propriedade INDEXNAME do componente TTABLE selecione e clique no index name.recém criado.

Insira um componente TEdit no seu TForm de consultas dos dados.

No evento OnChange do TEdit digite:

Table1.FindNearest([Edit1.Text]);