decimal a binario

[ecfisa]

Hola.

char* IntToBin(long int Valor, short Digitos)
{
char *s = "";
  for(int i=0; i < Digitos; i++) *(s+i) = '0';
  *(s+Digitos) = '\0';
  do {
    if(Valor & 1) *(s+Digitos-1) = '1';
    Digitos--;
    Valor >>= 1;
  } while(Valor);
  return s;
}

Ejemplo de llamada:

void __fastcall TForm1::btConvertirClick(TObject *Sender)
{
char *s = IntToBin(65521,16);
  ShowMessage(s);
}

Saludos.