Suma binaria

[CHiCoLiTa]

Hola,

He estado buscando por el foro y la verdad es que no he encontrado nada.
Se que en C para hacer la suma binaria se usa un solo ampersan (&), pero en Delphi no encuentro una forma rapida o la instruccion en cuestion.

Como seguramente y para variar no me he explicado bien voy a poner un ejemplo

if (1 & 7) then
OK

esto quiere decir que el 1 (0001) esta dentro del 7 (0111)

el 9 contendria al 8 y al 1 (1001), al 2 no, etc

Ahora mismo esto lo hago pasando los numeros a binario y buscando 1's en las posiciones pertinentes, pero estoy convencido que en Delphi tiene que haber un operador para hacerlo, pero no lo encuentro

Espero haber conseguido explicarme bien

Saludos

[delphi.com.ar]

Igual que en C, puedes comparar dos números a nivel de bit utilizando los operadores lógicos:

Código Delphi [-]
if (1 and 7) = 1 Then
...

Saludos!

[CHiCoLiTa]

Me falta por poner el = 1
Pero de todos modos
(2 and 6) = 1
deberia ser verdadero y me da falso
Alguna sugerencia?

[CHiCoLiTa]

ahhmmm, en ese caso deberia ser

(2 and 6) = 2