home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / share / Dos / VARIOS / pascal / NUMBERS.SWG / 0001_Bit Manipulation.pas
Encoding:
Pascal/Delphi Source File  |  1996-02-21  |  459 b   |  22 lines
  1.  
  2.  
  3.  
  4. Bit
  5.  7   6   5   4   3   2   1   0
  6.  
  7. 128 064 032 016 008 004 002 001
  8.  
  9. TO check IF the last bit (7) is on OR off, you can DO something like..
  10.  
  11. FUNCTION isBitOn (n, b : BYTE) : BOOLEAN;
  12. BEGIN isBitOn := ( (n SHR b) AND 1) = 1 END;
  13.  
  14. TO SET a specific bit TO on, DO something like...
  15.  
  16. PROCEDURE setBitOn (VAR n : BYTE;b : BYTE);
  17. BEGIN n := n OR (1 SHL b) END;
  18.  
  19. PROCEDURE toggleBit (VAR n : BYTE;b : BYTE);
  20. BEGIN n := n XOR (1 SHL b) END;
  21.  
  22.