_FindRec
( DBType : Integer;
IdxNum : Integer;
KeyStr : String[MaxKeyLen]) : Byte;
Hledá takovou větu databáze DBType, která má klíč v
indexu IdxNum roven definovanému klíči 'KeyStr'. Porovnání
klíčů však probíhá pouze v délce klíče 'KeyStr'. Stavba klíče musí odpovídat
stavbě klíče u příslušné databáze. Pro vyhledání věty,
která má klíč v indexu 'IdxNum' roven nebo vyšší použijte funkci
_SearchRec.
-
IdxNum - číslo indexu (položky) podle které se bude hledat.
-
KeyStr - hodnotu klíče, který se bude hledat.
-
Nenalezne-li funkce klíč KeyStr, vrací hodnotu False (0). V
opačném případě vrací hodnotu True (1) a nalezená věta se nahraje do paměti.
Makrojazyk
Podívejte se na: Databázové
makrofunkce
Příklad:
dim Cnt : Longint;
Cnt := 0;
StepIdx(dbtGrp, grpVaha);
if _FindRec (dbtGrp, grpVaha, _WToKey(900)) then
while Grp[grpSkup] = 900 do
exitif _StepRec(dbtGrp, 1) = False then
endexit
Trace(_Inc(Cnt)," ",Grp[grpText]);
endwhile
endif