Table - locate

Top  Previous  Next

procedure TForm3.Edit1Change(Sender: TObject);

var

   Achou : Boolean;

   SearchOptions: TLocateOptions;

begin

     SearchOptions := [loCaseInsensitive];

     Achou := query1.locate('nome', edit1.text, SearchOptions);

 end;

 

Funcionou tanto com TABLE quanto QUERY e parece que funciona com TStoredProc.

 

loCaseInsensitive - Aponta quando voce completar toda a palavra contida no campo

loPartialKey      - Vai apontando conforme voce vai digitando sua string.