nao sei se te ajuda... eu tenho esta função que fiz ha muito tempo que me
retorna uma sequencia de bits com zeros e uns
eu a uso para erros em serie,tipo vou fazer varias validações e quero
informar ao usuario onde esta o erro, ai eu atribuo um valor binario para o
erro (1,2,4,8,16,32,64,128) e
Mutuka,
Faça assim, seguindo seu exemplo:
var
Soma: Integer;
Teste: Integer;
Begin
Soma := 2 + 8 + 32; 42
Teste := 2;
if (Soma AND Teste) = Teste then
ShowMessage('SIM')
else
ShowMessage('NÃO');
end;
Você pode facilmente transformar isso em uma função. Qualquer dúvida é
Opa! Desculpa, me esqueci do grande detalhe! Tem que ser sempre 2 elevado a
alguma coisa 2 elevado a 0 = 1; 2 elevado a 1 = 2; 2 elevado a 2 = 4 e assim
por diante... (1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, ...)
[]´s
Gustavo Fujita
-Mensagem original-
De: Gabriel Ferrarini
3 matches
Mail list logo