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