Indicadores de bit a bit en Delphi

Question

Necesito comprobar si un determinado indicador está configurado para un número entero.

que ya sabe cómo configurar una bandera:

flags := FLAG_A or FLAG_B or FLAG_C 

Pero, ¿cómo puedo comprobar si se ha establecido un cierto bandera?

En C++ usé el operador &, pero ¿cómo funciona eso en Delphi? Estoy un poco confundido en el momento

Answer 1

Utiliza el operador and como lo harías en & en C++. En argumentos numéricos, es bitwise. Here are some examples de operaciones bit a bit.

Answer 2

En Delphi tiene 2 opciones:

1) utiliza 'y' operador, así:

const 
    FLAG_A = 1; // 1 shl 0 
    FLAG_B = 2; // 1 shl 1 
    FLAG_C = 4; // 1 shl 2 

var 
    Flags: Integer; 

[..] 
    Flags:= FLAG_A or FLAG_C; 
    if FLAG_A and Flags <> 0 then .. // check FLAG_A is set in flags variable 

2) definir el tipo establecido:

type 
    TFlag = (FLAG_A, FLAG_B, FLAG_C); 
    TFlags = set of TFlag; 

var 
    Flags: TFlags; 

[..] 
    Flags:= [FLAG_A, FLAG_C]; 
    if FLAG_A in Flags then .. // check FLAG_A is set in flags variable 

Answer 3

por lo general utilizan este función:

// Check if the bit at ABitIndex position is 1 (true) or 0 (false) 
function IsBitSet(const AValueToCheck, ABitIndex: Integer): Boolean; 
begin 
    Result := AValueToCheck and (1 shl ABitIndex) <> 0; 
end; 

a nd setters:

// set the bit at ABitIndex position to 1 
function SetBit(const AValueToAlter, ABitIndex: Integer): Integer; 
begin 
    Result := AValueToAlter or (1 shl ABitIndex); 
end; 

// set the bit at ABitIndex position to 0 
function ResetBit(const AValueToAlter, ABitIndex: Integer): Integer; 
begin 
    Result := AValueToAlter and (not (1 shl ABitIndex)); 
end; 

Nota: no hay comprobación de rango, solo por el rendimiento. Pero fácil de agregar si necesita