Convertir Binario a Hexadecimal.

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[seoane]]

Prueba asi

Código Delphi [-]
 function BinToHex(Hex: String): String;
var
  i,j: Integer;
  Str: String;
begin
  Result:= EmptyStr;
  for i:= Length(Hex)  downto 1 do
    if not (Hex[i] in ['0','1']) then
      Delete(Hex,i,1);
  while Length(Hex) mod 4 <> 0 do
     Hex:= '0' + Hex;
  while Length(Hex) > 0 do
  begin
    Str:= Copy(Hex,1,4);
    Delete(Hex,1,4);
    j:= 0;
    for i:= 1 to Length(Str) do
      j:= (j * 2) + StrToInt(Str[i]);
    Result:= Result + IntToHex(j,1);
  end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
   Edit1.Text:= BinToHex(ACC7.Caption + ACC6.Caption + ACC5.Caption + ACC4.Caption + ACC3.Caption
  + ACC2.Caption + ACC1.Caption + ACC0.Caption);
end;

[[Caral]]

Hola
A mi me compilo, el que sabe, sabe.
Saludos

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[Caral]]

Hola
Bueno, el apoyo moral también cuenta.
Gracias por el reconocimiento.
Saludos

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[seoane]]

Empezado por JoseFco

PD:Creo que el maestro seoane me a regañao

Si, pero con una sonrisa

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[seoane]]

Me parece JoseFco que estas queriendo correr antes de andar

Lo primero que te recomiendo es que para trabajar con bytes uses bytes y no texto. Una vez que tengamos los datos como bytes delphi ya dispone de todas las operaciones que necesites swap, shift, etc ...

PD: Mira que hace años que no programo un 8051, ya casi no me acuerdo de como se usaba la ALU

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"