Link to home
Start Free TrialLog in
Avatar of Jmaurin
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-00000000-00000001.
    ShowMessage(IntToStr(BitMask));
    BitMask = (unsigned __int32)BitMask << Bit; //desloca bits para a esquerda.
     ShowMessage(IntToStr(BitMask));
    if( (valor & BitMask) == BitMask ) //se bit ligado.
        return 1;
    else
       return 0;
}
ASKER CERTIFIED SOLUTION
Avatar of david_barker
david_barker

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial