Skip to main content
2 de 2
adicionou 1099 caracteres ao conteúdo
user avatar
user avatar

LOCATE - Declaração:

function Locate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean; virtual;

Esse método permite a busca exata de um registro, por campos que não façam parte do índice corrente da tabela representada pelo componente, e recebe como parâmetros:

  • Uma string contendo os nomes dos campos pelos quais será feita a pesquisa (separados por ponto-e-vírgula).
  • Uma string contendo os valores a serem pesquisados nos campos pelos quais será feita a pesquisa (separados por ponto-e-vírgula).
  • Um conjunto de opções, que pode conter os seguintes elementos: LoCaseInsensitive - se esse elemento for incluído, letras maiúsculas e minúsculas serão tratadas indiferentemente; LoPartialKey – indica que a pesquisa será aproximada.

Esse é uma exemplo de como fazer o método Locate com dois campos que encontrei no docwiki.embarcadero.com/Using_Locate.

CustTable.IndexFieldNames := 'ID'; 
if CustTable.Locate('ID1';'ID1', VarArrayOf([´String1´,´String2´]), [])then
  ShowMessage ('O cliente com ID = String1 e ID = String2 encontrado')
else 
  ShowMessage ('O cliente não encontrado') ;

No docwiki.embarcadero.com tem toda a descrição do método e também encontrei outro método que pesquisa com dos campos que é o Extended Locating deem uma olhada o método LocateEx aceita valores de campo ou expressões.

  • Valor de Campo:

     if not CustTable.LocateEx('COMPANY', 'AMCO', [lxoCaseInsensitive]) then
       ShowMessage('The customer from AMCO company is not found')
     else
       ShowMessage('Order is not found'); 
    
  • Expressão:

     if FDQuery1.LocateEx('Price >= 1000 and Price <= 2000', []) then
       ShowMessage('Order is found')
     else
       ShowMessage('Order is not found');
    
user82731