Ver Mensaje Individual
  #2  
Antiguo 28-04-2004
Avatar de jachguate
jachguate jachguate is offline
Miembro
 
Registrado: may 2003
Ubicación: Guatemala
Posts: 6.254
Reputación: 27
jachguate Va por buen camino
Cool

Acabo de hacer una pequeña prueba en delphi 7, y me ha funcionado perfectamente... seguro que tu edit no tiene algo mas que el 0.3???

lo que hago es simplemente:

Código Delphi [-]
 begin
  result := StrToFloat(Edit1.Text);
  result := result * 2;
  Label1.Caption := FloatToStr(result);
 end;

Ha funcionado para valores como

Código Delphi [-]
 '0.3'
 '.3'
 '      0.3'
 '        .3'
 '1'
 '1.0'

Esto debiera funcionar exactamente igual en cualquier otra versión de delphi...

Hasta luego.

__________________
Juan Antonio Castillo Hernández (jachguate)
Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate
Responder Con Cita