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

[kbaby]

Quiero un programa que haga esto, lo necesito locamente para mañana a las 8:30... así que imagínate xD jajaja.

[ixMike]

¡Será posible! Deberías haber empezado un poco antes, ¿no?

A ver qué te parece esto (no sé si funciona correctamente):

Código Delphi [-]
Function RealToBin(R: Real): String;
type
  TBReal = record
    B1, B2, B3, B4, B5, B6: Byte; //una estructura que ocupa lo mismo que un Real y puedes accederla byte a byte
   end;
  PBReal = ^TBReal; //Puntero a ese tipo
var
  V: PBReal;
  S: String;
begin
  V:=@R;
  S:=IntToBin(V^.B1, 8) + IntToBin(V^.B2, 8) + IntToBin(V^.B3, 8) + 
     IntToBin(V^.B4, 8) + IntToBin(V^.B5, 8) + IntToBin(V^.B6, 8);
  Result:=S;
end;

Espero que te sirva (mira a ver si puedes hacerlo tú con un puntero a una matriz, en vez de a una estructura ).

Salu2.

[kbaby]

Pero.. todo esto donde lo meto? En un button, en el fondo del programa... ¿donde? :S Soy un no-va-to xD con todas sus letras.

[[egostar]]

Empezado por kbaby

Quiero un programa que haga esto, lo necesito locamente para mañana a las 8:30... así que imagínate xD jajaja.

Empezado por kbaby

Pero.. todo esto donde lo meto? En un button, en el fondo del programa... ¿donde? :S Soy un no-va-to xD con todas sus letras.

Hola amigo kbaby, como se que tienes potencial y que no te da miedo entrarle a los golpes, pienso que puedes solucionar esa duda existencial que tienes, prueba las opciones que se te ocurran y decide donde estará mejor

Salud OS

[kbaby]

Es que no entiendo nada de lo que hay en el codigo, tenemos un nivel muy bajo, lo ultimo que dimos fue el: if, for y copy

Imagínate.

Por cierto... egostar... ¿tu jugabas a habbo?

[[egostar]]

Empezado por kbaby

Es que no entiendo nada de lo que hay en el codigo, tenemos un nivel muy bajo, lo ultimo que dimos fue el: if, for y copy

Imagínate.

Es que es una funcion que puedes llamar desde cualquier parte de tu forma, ya sea un boton o un evento, la puedes llamar de esta manera

Código Delphi [-]
VariableString := RealToBin(19.25);

Empezado por kbaby

Por cierto... egostar... ¿tu jugabas a habbo?

Pues no amigo kbaby ni lo conozco, cuando era joven como tú no existia ni siquiera la computadora, las TV eran blanco y negro, no existian los controles remotos, jugaba con carritos de madera y soldaditos de plomo.....

Salud OS

[kbaby]

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

Es que en ese juego había un egostar :P por eso me sonaba jujuju.

Gracias por la ayuda.