Ver Mensaje Individual
  #2  
Antiguo 27-06-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

No es necesario hacer:
Código Delphi [-]
   StrTofloat('.16');
Por otro lado, usando StrToFloat el valor '0.16' será correctamente convertido (o no) dependiendo de la configuración regional del S.O.

Hace directamente:
Código Delphi [-]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  case Key of
    VK_F1:begin
           label9.Caption:= floatToStr(StrTofloat(label7.Caption) * 0.16);
           label11.Caption:= floatToStr(StrTofloat(label7.Caption)+strTofloat(label9.Caption));
          end;
   // ...
  end;
end;

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita