Problema con el componente TDBEdit

[noejfh]

Saludos a los que vean este nuevo hilo y agradezco quien pueda enviarme solución al problema que poseo con el uso correcto del componente DBEdit:

Estoy realizando un pequeño formulario para calcular precios de venta a partir de un precio de compra (costo), utilizo FDB (Firebird 2.5) un componente DBExpress llamado: BaseDatos para la conexión y consulta un TDBQuery: qArticulo con su respectivo proveedor llamado dspArticulos y ClientDataSet llamado cdsArticulos:

el asunto es que el TDBEdit me envia un mensaje de error ya que el campo de unos de los dbedit esta vacio y la unica manera es ingresar un valor por defecto y no he logrado ponerlo con la propiedad DisplayFormat al cargar el formulario ya con esos campos llenos 0.00.

Alguien me puede dar una pequeña idea de lo que pudiera realizar?


Saludos

Nota: utilizo Delphi XE

Noé

[[oscarac]]

y que mensaje de error te sale?

[noejfh]

El mensaje is not a valid Floating point Value.
Esto es seguro porque en el evento on change del DbeEdit, llamo un procedimiento declarado en Delphi.
Y en el procedimiento se utiliza el valor que tienen los Dbedits, Ya convertidos a Float.
La cuestion es que ocupo que los dbedits a la hora que se muestre el formulario, Muestren un Valor de 0. :S Nose si eso se pueda hacer...
Porque usando Edits si me funcionan los cálculos, Mostrando que el valor por default sea 0...
Muchas Gracias...

[[oscarac]]

Empezado por noejfh

La cuestion es que ocupo que los dbedits a la hora que se muestre el formulario, Muestren un Valor de 0. :S Nose si eso se pueda hacer...

disculpa pero esto no lo entendi

[noejfh]

Formulo nuevamente la pregunta:

Viste el mensaje de error, creo que se debe a que tengo cuatro dbEdit:

dbEditCosto dbEditGasto dbEditUtilidad dbEditVarios

Sin Embargo realize un procedimiento el cual me realiza calculos de incremento
de precio a partir del dbEditCosto sin embargo en el evento OnChange de los dbEdit me manda el mensaje porque aparece un valor sin calcular.

Trato de ver la forma de poner por defecto un valor a los dbEdit pero no se si se podra para que mi procedimiento funcione correctamente utilizando el componente TDBEdit.

Gracias por tu paciencia.

[noejfh]

Esto es mi codigo:

El procedimiento no me da problemas sin embargo si tienen alguna sugerencia les agradeceria mucho...

Código Delphi [-]
  Gasto := StrToFloat(frmArticulos.dbeGastos.Text);
  Utilidad := StrToFloat(frmArticulos.dbeUtilidad.Text);
  Varios := StrToFloat(frmArticulos.dbeVarios.Text);

Saludos

Noé

[ecfisa]

Empezado por noejfh

El mensaje is not a valid Floating point Value.
Esto es seguro porque en el evento on change del DbeEdit, llamo un procedimiento declarado en Delphi.
Y en el procedimiento se utiliza el valor que tienen los Dbedits, Ya convertidos a Float.
La cuestion es que ocupo que los dbedits a la hora que se muestre el formulario, Muestren un Valor de 0. :S Nose si eso se pueda hacer...
Porque usando Edits si me funcionan los cálculos, Mostrando que el valor por default sea 0...
Muchas Gracias...

Hola.

Sería muchisimo mas sencillo poder ayudarte si agregas la parte del código que te dá problemas y el procedimiento implicado.
( Cuando pongas tu código, recordá encerrarlo entre las etiquetas [delphi] [/delphi] )

Un saludo.