Ver Mensaje Individual
  #3  
Antiguo 26-05-2020
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Como para que uses de guía, te hice un ejemplo que pasa un numero hexadecimal a binario lo almacena en un TRichEdit y pinta de colores los dígitos:
Código PHP:
String hexToBin(String value)
{
  
String BIN[16] = {"0000","0001","0010","0011","0100",
                    
"0101","0110","0111","1000","1001",
                    
"1010","1011","1100","1101","1110","1111"};
  
int i 1;
  
String r;

  while(
value.Length())
  {
    
char ch toupper(value[i]);
    if (
ch >= '0' && ch <= '9')
      
+= BIN[ch '0'];
    else if (
ch >= 'A' && ch <= 'F')
      
+= BIN[ch 'A' 10];
    else
      throw (
"Caracter ilegal.");
    
i++;
    ;
  }
  return 
r;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  
TColor colors[8] = {clRed,clYellow,clBlue,clGreen,clBlack,
                      
clLime,clRed,clLime};
  
RichEdit1->Text hexToBin("2C8");
  for(
int i 08i++)
  {
    
RichEdit1->SelStart  i;
    
RichEdit1->SelLength 1;
    
RichEdit1->SelAttributes->Color colors[i];
  }

Resultado:


Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita