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