bit da char

Question

galera, alguem sabe como que compara bit a bit de uma char?? eu sei que tem um comando em delphi que j� faz isso..obrigadoEduardo...

Beppe · Answer

Uma maneira � assim:[code:1:ce99cb8535]for I := 0 to 7 do  if Ord(Ch1) and (1 shl I) <> Ord(Ch2) and (1 shl I) then    { os bits diferem }[/code:1:ce99cb8535]...

Edusjc · Answer

s� uma duvida, esse algoritmo vai comparar os bits entre 2 char, mas como que eu fa�o para comparar apenas uma char, por exemplo, to lendo a porta serial e t� chegando uma char, s� que preciso saber o que tem nos bits da char, pois primeiro preciso saber se os dois bits mais significativos tenho 1 neles para saber que o resto da mensagem me interessa, e depois, com o restante dos bits, preciso saber qual dos bits est� como 0, para saber qual das chaves foram acionadas? tem como fazer isso atrav�s desse for???

obrigado

Beppe · Answer

Para testar o valor de um bit, use �Valor and (1 shl Posicao_Bit)�. Se retornar <> 0, ent�o o bit � 1.Para testar os mais significativos, vc testa o 6 e o 7....

Edusjc · Answer

Nesse caso, o campo que vc colocou Valor seria o Ord(variavel_char)?
por exemplo, se eu coloco em uma variavel do tipo char, o equivalente ao 254 em decimal que quer dizer 11111110, eu deveria mostrar uma mensagem de que a chave 1 foi acionada ent�o fiz o seguinte c�digo

if Ord(ch) and (1 shl 7)<>0 then
   if Ord(ch) and (1 shl 6)<>0 then
   begin
   if ord(ch) and (1 shl 0)=0 then
      memo1.Lines.Add(�chave1�)
      else
      if ord(ch) and (1 shl 1)=0 then
         memo1.Lines.Add(�chave2�)
         else
         if ord(ch) and (1 shl 2)=0 then
            memo1.Lines.Add(�chave3�)
            else
            if ord(ch) and (1 shl 3)=0 then
               memo1.Lines.Add(�chave4�)
               else
               if ord(ch) and (1 shl 4)=0 then
                  memo1.Lines.Add(�chave5�)
                  else
                  if ord(ch) and (1 shl 5)=0 then
                     memo1.Lines.Add(�chave6�)

s� que com esse c�digo ele n�o apresenta nenhuma mensagem. Tem algum erro no que digitei??

obrigado

Eduardo

Beppe · Answer

Funcionou perfeitamente aqui. Tem certeza de que o valor � 254?...

Edusjc · Answer

sim.. como foi que vc testou a�??...

Beppe · Answer

Apenas envolvi seu c�digo com o que faltava. + um TMemo e TButton.[code:1:1bda1cdec8]var  Ch: Char;begin  Ch := #254;  { aquele seu c�digo aqui }  end;end;[/code:1:1bda1cdec8]...

F�rum bit da char #283779