Cómo convertir un número binario al tipo Real

[ixMike]

Volvamos a ver mi código:

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;

Lenght(Edit1.Text) es lo que tú quieres llamar cantidad, pero si así te aclaras mejor, pues entonces hazlo

If Edit1.Text[n]='1' then significa "si el carácter n es uno entonces...". Así es como discrimino al cero.

La función Inc incrementa la variable Numero en la cantidad que se le dice en el segundo parámetro. Estas dos líneas hacen lo mismo:

Código Delphi [-]
Inc(Numero, 2);
Numero:=Numero + 2;

Lo que hago es incrementarlo la potencia de dos, teniendo en cuenta que el exponente es el orden del carácter leído, comenzando por la derecha y desde cero. Si te fijas, cantidad - n ya hace esto (al principio vale 0, y al final cantidad - 1)

A ver si de esta forma te aclaras más:

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

¿Mejor así?

Salu2.

[kbaby]

Hola! Como nadie sabíamos hacerlo nos dijo que no nos explicó que se hacía con el for con downto ... pero bueno mañana tengo la posibilidad de entregarlo. He visto tu código y donde pone lenght ....¿no sería length?

En delphi, puse un edit y un button y metí el code enel button. Y cuando le doy a F9 me señala la linea donde dice Power diciendo de error: Undeclared identifier: 'Power'. Y luego otro error en la misma línea de que falta un ; porque dice Missing Operator semiclon xD


Siento ser así de pasado, pero bueno.... es que quiero aprender y quiero aprender mucho más... necesito hacer un proyecto para junio ! Y quiero empezar ya en mi casa.

[kbaby]

He buscado en Delphi help, y me dice que la función Power es:
Power(const Base, Exponent: Extended): Extended;

¿No faltan las palabras en negrita?

[[Lepe]]

Es obvio que lo ha escrito de memoria, así que es fácil cometer errores.

lenght es uno de mis errores más comunes

En la misma ayuda, te dice que power está en la unidad Math, por ende, tienes que poner :

uses Math;

para que compile.

Lo del punto y coma, pues lo corrijes y listo

Las palabras en negritas, son la declaración de tipos de la función, es decir, te dice que recibe un tipo de dato en coma foltante (Extended), aunque un integer es totalmente compatible con ellos.

La palabra "const" viene a decir que esos parámetros no se van a modificar dentro de la función "power".

Saludos

[kbaby]

No se donde poner uses Math;

Lo siento... xD mi inexperiencia... es 100%

Gracias por la rapidez tio.

[[Delphius]]

kbaby,
una unidad viene así:

Código Delphi [-]
unit Unit1;

interface

uses
  // aqui viene la lista!

type

...

implementation

...

end;

Lee la ayuda kbaby... allí está todo... además si emplearas el buscador de los foros llegarías a hilos en donde se han expuesto estas preguntas.

Saludos,

[kbaby]

Lo intento... pero como en esas ayudas viene información demás.. pues me es imposible encontrar la explicación. Necesito un manual que empieze desde cero.

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, math;

Aquí puse lo de math, pero me sigue señalando la linea donde está power.... diciendome tipo incompatible integer y extended y mission operartor semiclon...


pd: lo siento...

[ixMike]

Missing operator or semicolon te sale seguramente porque te falta un puntocoma.

El otro error es porque has puesto un extended donde va un integer.

Desde luego necesitas un manual para empecar desde cero , en el FTP del club tenemos La cara oculta de Delphi 4, que va desde cero hasta experto


Salu2.

[kbaby]

Recomendadme un libro, que voy a salir a las 17.00 a comprarme un manual. Decidme titulos bueno porfavor. Quiero aprenderlo a fondo.