Buscar por:

Criar um botão de pesquisa

Código

Procedure TForm1.BitBtn1Click(Sender: TObject);

//inclua um bitbtn no formulário e altere sua propriedade para localizar//

var

nome : string;

//a variável deve ser digitada antes da instrução begin//

begin

Nome:= ''//Inicia definindo uma string vazia

If InputQuery('Localizar','Nome',Nome) then

if not nomedatabela.Locate('Nome',Nome,

[loCaseInsensitive, loPartialKey]) then

showMessage('Nome não encontrado');

// entendendo o código acima:

//A função InputQuery é responsável por criar uma caixa de diálogo

// para digitação de informação do tipo texto.

//O método locate é um dos métodos responsáveis pela localização de informações

end;

end.