En pascal, en general, puedes utilizar mascaras de bits individuales y los operadores binarios and
, or
, xor
para trabajar con los bits individuales dentro de un Byte.
También se pueden utilizar operadores de corrimiento de bits shl
y shr
.
Yo usualmente declaro constantes para facilitarme el trabajo, por ejemplo (contando los bits del 1 al 8 de derecha a izquierda)1
const
bit1: Byte = $01; {00000001}
bit2: Byte = $02; {00000010}
bit3: Byte = $04; {00000100}
bit4: Byte = $08; {00001000}
bit5: Byte = $10; {00010000}
bit6: Byte = $20; {00100000}
bit7: Byte = $40; {01000000}
bit8: Byte = $80; {10000000}
Con esto, puedes establecer los bits individuales de una variable, utilizando el operador or
, por ejemplo:
var
MiBit: Byte;
begin
MiBit := bit1 or bit3 or bit5; {00010101}
MiBit := MiBit or bit8; {10010101}
También puedes comprobar si un bit individual está encendido o apagado, utilizando el operador and
:
if MiBit and bit6 = bit6 then
ShowMessage('Bit 6 está encendido');
if MiBit and bit3 = bit3 then
ShowMessage('Bit 3 está encendido');
if MiBit and bit7 = 0 then
ShowMessage('Bit 7 está apagado');
Finalmente, sugeriría, si para ti cada bit es un día de la semana, utilices constantes que ayuden a que el código sea más legible, digamos:
const
bitDomingo: Byte = $01; {00000001}
bitLunes: Byte = $02; {00000010}
bitMartes: Byte = $04; {00000100}
bitMiercoles: Byte = $08; {00001000}
bitJueves: Byte = $10; {00010000}
bitViernes: Byte = $20; {00100000}
bitSabado: Byte = $40; {01000000}
var
DiasSeleccionados: Byte;
procedure TForm1.CheckBoxDomingoClick(Sender: TObject);
begin
if CheckBoxDomingo.Checked then
DiasSeleccionados := DiasSeleccionados or bitDomingo
else
DiasSeleccionados := DiasSeleccionados and not bitDomingo;
end;
1 Ojo, que alguien con formación en c, pedirá que los bits vayan del 0 al 7, es una cuestión de convención y puede ser, al final, de cualquier manera, siempre y cuando todos los programadores involucrados en el proyecto estén informados de ella.