1
{ ---------------------------------------------------------------------
3
---------------------------------------------------------------------}
5
function IFTODT(mode : __mode_t) : longint;
7
IFTODT:=(mode and $F000) shr 12;
10
function DTTOIF(dirtype : longint) : __mode_t;
12
DTTOIF:=dirtype shl 12;