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

[kbaby]

Aquí esta lo que tengo:

procedure TForm1.Button1Click(Sender: TObject);
var
n, Cantidad, Numero: Integer;
begin
Numero:=0;
Cantidad:=Length(Edit1.Text);
for n:=Cantidad downto 1 do
begin
If Edit1.Text[n]='1' then
Numero:=Numero + Power ( 2, Cantidad - n);
end;
ShowMessage('El binario '+Edit1.Text' equivale al número entero '+IntToStr(Numero));

end;

end.

Y sí, voy a comprar un libro, voy a ir viendo esos que me informáis.

[[maeyanes]]

Hola...

Aquí tu código corregido... checa el comentario...

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  n, Cantidad, Numero: Integer;
begin
  Numero := 0;
  Cantidad := Length(Edit1.Text);
  for n := Cantidad downto 1 do
    If Edit1.Text[n] = '1' then
      Numero := Numero + Power(2, Cantidad - n);
  // En esta línea tenías el error, un operador + que faltaba
  ShowMessage('El binario ' + Edit1.Text + ' equivale al número entero ' + IntToStr(Numero))
end;

Saludos...

[kbaby]

Madre mía!!! Por esa cosa me sale todo eso... dios muchas gracias, Ahora queda el último error, me sale:
Incompatible types: 'Integer' and 'Extended'.
Y me señala la línea:
Numero := Numero + Power(2, Cantidad - n);


¿Por qué?


PD: Gracias.

[[maeyanes]]

Hola...

El problema está en que Número es una variable de tipo Integer y la función Power devuelve un valor del tipo Extended, entonces, al hacer:

Código Delphi [-]
Numero + Power(2, Cantidad - n);

El resultado se convierte automáticamente en Extended y ese valor no lo puedes asignar a la variable Numero, de ahí que te de ese error...

Prueba haciendo esto:

Código Delphi [-]
var
  n, Cantidad: Integer;
  Numero: Extended;

Saludos...

[kbaby]

Nunca use lo de Extended
Ahora sale otro error aquí:

Código Delphi [-]
IntToStr(Numero))

Debido a que numero antes era integer... que tengo que poner en lugar de IntToStr. Nunca he estudiado (por ahora) ese tipo de variable.

[[maeyanes]]

Hola...

Bueno si, ahora Numero no es de tipo Integer y es por eso que ya no puedes usar esa función..

Ahora tienes que usar: FloatToStr


Saludos...

[kbaby]

Otra duda xD ¿float no era para cuando utilizabas una variable real?

Ya funciona! Muchas gracias a todos (aora vengo voy a ir a la libreria a comprarme eso) No cerreis el post, que ahora os comento cosas del libro y doy mas gracias a todos).