Look_up

Internφ programovacφ jazykC/C++Pascal

function Look_up(curs : tcurstab; var attrname : string; var res : untyped) : trecnum;
trecnum [cd_]Look_up([cdp_t cdp], tcurstab curs, const char * attrname, void *res);
function [cd_]Look_up([cdp : cdp_t]; curs : tcurstab; attrname : Pchar; var res) : trecnum;

Parametry

curs deklarovanß tabulka nebo otev°en² kurzor - viz podrobnosti
attrname jmΘno sloupce
res vstupnφ parametr - beztypovß prom∞nnß obsahujφcφ hodnotu, kterΘ se mß sloupec attrname rovnat;
[cdp kontextovß prom∞nnß klienta]

Popis

Funkce prohledß tabulku nebo kurzor curs a nalezne zßznamy, v nich₧ se sloupec attrname rovnß hodnot∞ res. Funkce vrßtφ absolutnφ Φφslo prvnφho zßznamu, kter² tΘto rovnosti vyhovuje. Neexistuje-li takov² zßznam nebo dojde k chyb∞, vrßtφ hodnotu -1.

V externφch jazycφch parametr res ukazuje resp. odkazuje na hledanou hodnotu zapsanou ve vnit°nφm formßtu, tedy nap°. dvou- nebo Φty°bajtovΘ celΘ Φφslo, osmibajtovΘ Φφslo v pohyblivΘ Φßrce, °et∞zec znak∙ ukonΦen² nulou apod.

Hodnota funkce

Funkce vrßtφ absolutnφ Φφslo zßznamu vyhovujφcφ danΘ rovnosti nebo -1 v jinΘm p°φpad∞.

P°φklad

Zjist∞te, na jakou Φßstku znφ faktura Φ.4:

table
  Faktury;
var
  u : untyped;
  mo : money;
  zaznam : trecnum;
begin
  u := 4;
  zaznam := Look_up(faktury,"CISLO",u);
  if zaznam <>-1 then begin
    mo := faktury[zaznam].castka;
    Info_box("",Money2str(mo,0));
  end;
end.

Viz