Table - usando lookup

Top  Previous  Next

Usando o TABLE.LOOKUP

=====================

 

* Retorna qualquer valor de um registro da tabela em uso SEM MOVER O PONTEIRO!

 

var

  Resultados   : Variant;

  Chave, Campos: string;

  ValorPesq    : Integer;

begin

  Chave      := 'codigo';

  ValorPesq  := 2247;

  Campos     := 'cod_barra;nome;vlr_venda';

  Resultados := Table1.Lookup(Chave, ValorPesq, Campos);

    if not VarIsNull(Resultados) then

      ShowMessage('Cod.Barra: ' + IntToStr(Trunc(Resultados[0])) + #13 +

                  'Nome: '      + Resultados[1]                  + #13 +

                  'Valor: '     + FloatToStr(Resultados[2]));

end;

 

========================= Another way

var

  Lookupresults : Variant;

begin

  with Table do

     LookUpResults := Lookup('company','Professional Divers, Ltd',

                             'Company;Contact;Phone')

end;