Jmaurin
asked on
C++ --> Delphi?
Hi...please, can anyone help me?
I need to 'translate' this function to delphi:
unsigned char Testa32Bits(unsigned __int32 valor, unsigned char Bit)
{
unsigned __int32 BitMask = 1; //00000000-00000000-000000 00-0000000 1.
ShowMessage(IntToStr(BitMa sk));
BitMask = (unsigned __int32)BitMask << Bit; //desloca bits para a esquerda.
ShowMessage(IntToStr(BitMa sk));
if( (valor & BitMask) == BitMask ) //se bit ligado.
return 1;
else
return 0;
}
I need to 'translate' this function to delphi:
unsigned char Testa32Bits(unsigned __int32 valor, unsigned char Bit)
{
unsigned __int32 BitMask = 1; //00000000-00000000-000000
ShowMessage(IntToStr(BitMa
BitMask = (unsigned __int32)BitMask << Bit; //desloca bits para a esquerda.
ShowMessage(IntToStr(BitMa
if( (valor & BitMask) == BitMask ) //se bit ligado.
return 1;
else
return 0;
}
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.