Question

How to set specific bits in a char with Pascal

Answer 1

program BitManipulation;

procedure PrintBinary(ch: Byte);
var
  i: Integer;
begin
  for i := 7 downto 0 do
    Write((ch shr i) and 1);
  WriteLn;
end;

var
  ch: Byte;
begin
  ch := 0;
  ch := ch or (1 shl 7);  // Set the 7th bit
  ch := ch or (1 shl 3);  // Set the 3rd bit

  PrintBinary(ch);        // Show binary representation
  WriteLn('Value: ', ch); // Show decimal value
end.




(*
run:
  
10001000
Value: 136

*)

 

70+ SQL courses for beginners and professionals