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

[kbaby]

¿Al codigo le falta decirle que decimal es edit1.text? O me lo parece a mi jajajaja

[kbaby]

Aquí está el código con algunos detalles que faltaba sin importancia:

Código Delphi [-]
var
  Resultado: String;
  decimal: integer;
begin
Resultado:='';
decimal:=strtoint(edit1.text);
While Decimal > 1 do
  begin
    Resultado:=Chr((Decimal mod 2)+48)+Resultado; //Añade delante el último dígito del resto obtenido
    Decimal:= Decimal div 2; //Lo dividimos entre dos para el siguiente paso del bucle
  end;
Resultado:=Chr(Decimal+48)+Resultado; //El último que nos queda
edit2.text:=(resultado);
end;

"Muchas gracias .... de verdad.... una cosita ¿dónde puedo mirar las medias para entrar a la universidad... las notas de corte ?(me interesan las de informática).

[ixMike]

Veamos.

El fallo no sé a qué se debe, ahora lo compruebo.

En cuanto a Chr, deberías mirar la ayuda Delphi más detenidamente, está bastante clara .

Chr devuelve el carácter del código ASCII que le indiques. El del cero es 48, y el del 1 es 49, ¿entiendes ahora porqué hago la suma?. Recuerda que resultado es un string.

Al código no le faltaba nada, era una función a la que le pasabas un integer y te devolvía el valor binario en un string. Lo que tú has hecho ha sido adaptar a algún evento (un clic supongo) de un botón de tu programa

Aquí tienes cómo se hace para pasar números con coma flotante a binario (e inversa), pero a mano: http://es.geocities.com/jeeesusmeeer...o/binario.html

Para las notas, sólo entra en la página de la universidad a la que quieras acceder, y busca un poco.

Salu2.

[kbaby]

Lo del Chr sigo sin entenderlo ... no sé porque se usa... y pasarlo a mano los numeros claro que se

[kbaby]

¿Cómo puedo poner button con iconitos dentro? Es que estoy leyendo un manual y habla algo de esto:

• mtIformation
• mtWarning
• mtError
• mtConfirmation
• mtCustom

Pero vamos... ni idea de como ponerlo y como que quedaría muy mono.

PD: Sigo sin tener idea de porque hay que usar el Chr y porque sumarle 48 ^^

[[egostar]]

Originally Posted by kbaby

¿Cómo puedo poner button con iconitos dentro? Es que estoy leyendo un manual y habla algo de esto:

• mtIformation
• mtWarning
• mtError
• mtConfirmation
• mtCustom

Pero vamos... ni idea de como ponerlo y como que quedaría muy mono.

No puedes colocar esos iconos en los botones porque esos son imagenes para las ventanas de mensajes, por ejemplo cuando usas MessageDlg().

Para colocar botones con iconos debes usar el TBitBtn que está en la paleta Additional en lugar del TButton que imagino estas usando.

Originally Posted by kbaby

PD: Sigo sin tener idea de porque hay que usar el Chr y porque sumarle 48

Es que si analizas lo que esta haciendo ixMike es que obtiene el residuo de la division Decimal mod 2 y le suma 48 para representar el cero (48) y el uno (49) de la tabla ASCII con la función CHR.

Salud OS

[kbaby]

Hasta ahí lo entendía... pero yo digo, eso, aplicado a la "realidad" al papel y lápiz... cómo se hace...?

Gracias a los 2