Basic Bitwise Operations in Pascal

Basic Bitwise Operations in Pascal
Four simple bitwise operations as Pascal functions.
  1. function GetBit(const Val: DWord; const BitVal: Byte)Boolean;
  2. begin
  3.         Result := (Val and (1 shl BitVal)) <> 0;
  4. end;
  5. function SetBit(const Val: DWord; const BitVal: Byte): DWord;
  6. begin
  7.         Result := Val or (1 shl BitVal);
  8. end;
  9. function EnableBit(const Val: DWord; const BitVal: Byteconst SetOn: Boolean): DWord;
  10. begin
  11.         Result := (Val or (1 shl BitVal)) xor (Integer(not SetOn) shl BitVal);
  12. end;
  13. function ClearBit(const Val: DWord; const BitVal: Byte): DWord;
  14. begin
  15.         Result := Val and not (1 shl BitVal);
  16. end;
Nathan Pakovskie is an esteemed senior developer and educator in the tech community, best known for his contributions to With a passion for coding and a knack for simplifying complex tech concepts, Nathan has authored several popular tutorials on C# programming, ranging from basic operations to advanced coding techniques. His articles, often characterized by clarity and precision, serve as invaluable resources for both novice and experienced programmers. Beyond his technical expertise, Nathan is an advocate for continuous learning and enjoys exploring emerging technologies in AI and software development. When he’s not coding or writing, Nathan engages in mentoring upcoming developers, emphasizing the importance of both technical skills and creative problem-solving in the ever-evolving world of technology. Specialties: C# Programming, Technical Writing, Software Development, AI Technologies, Educational Outreach

Leave a Reply

Your email address will not be published. Required fields are marked *

Back To Top