GetItems

(    TypDep    : Byte;
     GroupItem : Word;
     Mask      : LongInt; 
 dim F         : File)

Ve streamu 'F' vrací seznam položek, které patří do skupiny 'GroupItem' a směrů 'Mask'.

Příklad:

const mslPlNemDny      = 2;

procedure Test
    dim F    : File;
    dim nIdx : Longint;
	
    SRewrite(F, "", true);
    GetItems(dbtM, mslPlNemDny, 0, F);
	
    if(_SFirst(F, nIdx))then
        repeat
            Trace(_SGet(F, nIdx));
        until _SNext(F, nIdx) = false;
    endif
endproc

Podívejte se na: Položky