![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Error de Currency
Estoy manejando valores de monedas y nesecito hacer calculos y me sale error, de tipos ejemplo
Código:
var a: Currency; a1: Currency; tot: Currency; begin a := strtoint(dbedit1.Text); //precio compra a1 := strtoint(maskedit1.Text); //valor del cliente tot := (a * a1); maskedit2.Text := inttostr(tot); |
#2
|
||||
|
||||
Prueba así:
Además deberías utilizar Try...Except para cubrirte de valores incorrectos. Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
![]() |
#3
|
|||
|
|||
muchas gracias te pasaste
|
![]() |
|
|
![]() |
|