Ver Mensaje Individual
  #9  
Antiguo 14-04-2008
Avatar de defcon1_es
defcon1_es defcon1_es is offline
Miembro
 
Registrado: mar 2004
Ubicación: Cuenca - España
Posts: 533
Reputación: 21
defcon1_es Va por buen camino
Código Delphi [-]
SysUtils.DecimalSeparator := ',';
n1:=strtofloat(edit1.text);n2:=strtofloat(Edit2.text);
n3:=n1+n2;
edit3.text:=floattostr(n3);

Para controlar que los usuarios no tecleen letras, te recomiendo que uses
componentes TMaskEdit en vez de TEdit.
Le pones una máscara en su propiedad EditMask, y el componente se encarga de validar lo que teclean los usuarios.
__________________
Progress Openedge
https://abevoelker.com/progress_open...dered_harmful/


Delphi forever...
Responder Con Cita