Convertir Binario a Hexadecimal.
 

"Tolomeo se mudo al Polo Norte"


Un Saludo.

Hola
Yo de esto no entiendo, pero estas seguro de que esto es asi:

Código Delphi [-]
begin
  BinStr := 'Edit1.Text';

Revisa el codigo, me parece raro, no se.
Saludos

"Tolomeo se mudo al Polo Norte"

Hola
Pero amigo no deberia de ser asi:

Código Delphi [-]
begin
  BinStr := Edit1.Text;

No se, pero me parece que cuando se declara un edit, el text es el string y no la palabra completa, ve la diferencia:
Esto:

Código Delphi [-]
begin
  BinStr := 'Edit1.Text';

o esto:

Código Delphi [-]
begin
  BinStr := Edit1.Text;

Asi declara que el TEXTO que esta dentro del edit es el que me interesa y no la Palabra edit1.text como tal.
No se amigo, seguro me equivoco.
Saludos

Creo que ya hay una función para convertir de binario a hexadecimal, pero tardo mas en buscarla que en hacerla :p

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;

Por ejemplo si tenemos varios edit, por ejemplo edit0..7, con los bits y uno, llamemosle edit8, donde queremos poner el resultado:

Código Delphi [-]
  Edit8.Text:= BinToHex(Edit0.Text + Edit1.Text + Edit2.Text + Edit3.Text +
    Edit4.Text + Edit5.Text + Edit6.Text + Edit7.Text)

Edit0 tendria el bit mas significativo y el Edit7 el menos

"Tolomeo se mudo al Polo Norte"

Y no lo esta, por lo menos no lo esta fuera del formulario. Para que la función, que esta declarada fuera del formulario, lo encuentre tienes que darle su nombre completo Form1.Edit1.Text

"Tolomeo se mudo al Polo Norte"

Prueba asi :D

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;

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

"Tolomeo se mudo al Polo Norte"

"Tolomeo se mudo al Polo Norte"

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

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 :(

"Tolomeo se mudo al Polo Norte"

"Tolomeo se mudo al Polo Norte"

Si, pero con una sonrisa :D

"Tolomeo se mudo al Polo Norte"

"Tolomeo se mudo al Polo Norte"

"Tolomeo se mudo al Polo Norte"