Four simple bitwise operations as Pascal functions.
function GetBit(const Val: DWord; const BitVal: Byte): Boolean;begin Result := (Val and (1 shl BitVal)) <> 0;end;function SetBit(const Val: DWord; const BitVal: Byte): DWord;begin Result := Val or (1 shl BitVal);end;function EnableBit(const Val: DWord; const BitVal: Byte; const SetOn: Boolean): DWord;begin Result := (Val or (1 shl BitVal)) xor (Integer(not SetOn) shl BitVal);end;function ClearBit(const Val: DWord; const BitVal: Byte): DWord;begin Result := Val and not (1 shl BitVal);end;
Nathan Pakovskie is an esteemed senior developer and educator in the tech community, best known for his contributions to Geekpedia.com. 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
