[Back to NUMBERS SWAG index] [Back to Main SWAG index] [Original]

    Unit BitOper;
    {$F+,O+}
    Interface

    Function GetBit(a,n: byte):byte;              { ‚®§¢à é ¥â § ç¥¨¥ n-®£® ¡¨â
    }
    Function SetBitZero(a,n:byte):byte;                      { ‘¡à áë¢ ¥â n-ë© ¡¨â
    }
    Function SetBitOne(a,n:byte):byte;                    { “áâ  ¢«¨¢ ¥â n-ë© ¡¨â
    }

    Implementation

    Function GetBit(a,n: byte):byte;              { ‚®§¢à é ¥â § ç¥¨¥ n-®£® ¡¨â
    }
    Begin
        GetBit:=1 and (a shr n);
    End;

    Function SetBitZero(a,n:byte):byte;                      { ‘¡à áë¢ ¥â n-ë© ¡¨â
    }
    Begin
        SetBitZero:=a and (not(1 shl n));
    End;

    Function SetBitOne(a,n:byte):byte;                    { “áâ  ¢«¨¢ ¥â n-ë© ¡¨â
    }
    Begin
        SetBitOne:=a or (1 shl n);
    End;

    End.

[Back to NUMBERS SWAG index] [Back to Main SWAG index] [Original]