[ixMike]

Empezado por kbaby

Mejor lo dejo... no tengo ni idea de que es
VariableString := RealToBin(19.25);

¿Estás seguro de que eres el mismo kbaby que con el que yo traté hace unas semanas? Porque me parece que entonces sabías mas

VariableString es una variable de tipo string, a la que se asigna el valor que retorna la función RealToBin (creada por mí) cuando le pasas el parámetro 19'25. RealToBin la puedes poner en varios sitios; te recomiendo en implementation.


Ahora tengo que pedir disculpas por un pequeño despiste que he tenido, te he dado la función inversa a la que buscabas :

Empezado por kbaby

hacer una conversion de binario a un numero real

Esto lo que hace es coger un número real y pasarla a binario ^^

¿Estás seguro de que el número tiene que ser real? Porque con un entero la cosa queda muy fácil, pero con un real... mucho nivel para alumnos que sólo han visto if, for y copy.


Bueno, entonces consideremos el caso binario a entero. En los enlaces que te he puesto al principio hay una función que lo hace, pero vamos a pasar de ella, y vas a hacer tú mismo el método .

Para empezar, ¿cómo vas a recibir ese número binario? Seguramente lo escribirás en un edit, bueno, eso se espera. Ok.

Olvidémonos por un momento de la informática y dime: ¿sabes convertir un número en binario a decimal? Es decir, ¿sabes que 1010101010 es 682? Espero que sí : vas recoriendo los dígitos binario, de derecha a izquierda, sumando potencias de base 2.

Vale, ahora, ¿cómo aplicar este sistema en tu código Delphi? Veamos:

-Recorrer los carácteres de derecha a izquierda: El texto del edit se guarda en su propiedad Text, de tipo string. Si has estudiado sabrás que se pueden acceder a los distintos carácteres de un string como si de una matriz de Char se tratara. Así, para leer el 3er carácter harás:

Código Delphi [-]
const
  Cadena = 'ABCDEF';
var
  TercerCaracter: Char;
begin
  TercerCaracter:=Cadena[3];
  //TercerCaracter ahora debe valer "C"
end;

A diferencia de otros tipos o lenguajes, en Delphi el string comienza en el carácter 1, y no en el 0.

Pero, para recorrer de derecha a izquierda, ¿cómo hacerlo? Necesitarás un bucle (por la repetición) y saber cuántos carácteres tienes en el edit. Para lo segundo tienes la función Lenght (mira en la ayuda de Delphi para aprender cómo se usa, aunque es muy muy simple). Así, para recorrer todos los carácteres del edit haremos:

Código Delphi [-]
var
  n: integer;
begin
  for n:=Length(Edit1.Text) downto 1 do
    begin
    //Código
    end;
end;

Vale, ahora ya sólo queda calcular el número en sí. Pues con todo lo que sabemos, lo único que falta saber es cómo calcular una potencia; la función Power de la unit math nos lo da.

Toma, el código que tanto ansiabas:

Código Delphi [-]
var
  n, Numero: Integer;
begin
  Numero:=0; //Damos un valor inicial al número
  for n:=Lenght(Edit1.Text) downto 1 do
    begin
      If Edit1.Text[n]='1' then //Si el número es un uno
       Inc(Numero, Power(2, Length(Edit1.Text)-n));
    end;
ShowMessage('El binario '+Edit1.Text' equivale al número entero '+IntToStr(Numero));
end;

Espero que esté lo suficientemente claro. Cualquier función que no sepas para qué sirve, puedes buscarla en la ayuda de Delphi. Y recuerda añadir math a la uses.


Salu2.