Problema con el componente TDBEdit

[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]

Hola noejfh.

Me inclinaría a pensar que el problema se produce por el formato. Por ejemplo si dbeGastos.Text tiene el valor '$ 1.890,38' e intentas convertirlo mediante la función StrToFloat te vá a arrojar el error que mencionas.
Ese formato es a sólo fin de ser mostrado, internamente Delphi no lo reconoce como un número decimal válido.

Una solución sería utilizar el valor del campo asociado al DBEdit:

Código Delphi [-]
  Gastos:=StrToFloat(frmArticulos.tuDataSet.FieldByName('tuCampo').AsString);
  ...

O simplemente:

Código Delphi [-]
  Gastos:= frmArticulos.tuDataSet.FieldByName('tuCampo').AsFloat; // o AsCurrency
  ...

O la misma cosa escrita de otro modo:

Código Delphi [-]
   with frmArticulos.dbeGastos.DataSource.tuDataSet do
     Gastos:= FieldByName('tuCampo').AsFloat;
  ...

Saludos.

[[Caral]]

Hola
El DBedit muestra lo que hay en una tabla.
Si se abre la tabla se muestra lo que esta en ella.
Si se hace un insert queda en blanco.
Si se quiere que tenga un valor al iniciar el insert simplemente se una la propiedad edit del dbdeit.
Si se quiere se pueden recorrer todos y dejarlos en cero.
Saludos

[noejfh]

Muchas Gracias por la ayuda, me ha sido muy valiosa.
Pero sigo con el problema, es que otro dbEdit tiene un evento OnChange, donde se le dice que realize cierto calculos con los otros dbeedit. Con la propiedad .tex;
Segun yo para que aparesca un cero en los dbedits que toma el valor ago esto.

Código Delphi [-]
dbeGastos.Text:= '0.00';

tambien asi y nada

Código Delphi [-]
dbeGastos.EditText:= '0.00';

para que no me de el error de tipo vacio.
Porque en realidad empieza a hacer el calculo sin tener valor, he ahi el problema..
Que Cuando le ago la asignacion realiza el proceso on change que se llama en el otro dbedit :S, ya que los calculos deben de ser consecutivos y en tipo real digamos, que si cambimos un valor los otros tienen que cambiar tambien.
Muchas Gracias Por la Ayuda, Espero haberme podido explicar un poco.

[[Caral]]

Hola
La verdad es que yo de plano eliminaría los DBEdits y usaría Edits normales.
Saludos

[Paoti]

Hola.

Prueba a hacer esto. (Que es una forma elegante de hacerlo)

1. En el objeto TQuery. en este evento AfterInsert inicializa el valor de la sigguiente forma.

Código Delphi [-]
procedure TForm1.qry1AfterInsert(DataSet: TDataSet);
begin
    // CampoCantidad  es el nombre del campo que quiere inicializar
    qry1.FieldByName('CampoCantidad').AsCurrency := 0;
end;

ahora, lo que veo que estas haciendo es calcular información,


mirate en la ayuda del foro, referente a campos calculados,

consejo: No programes a eventos de los dbedits, trabaja mejor con los eventos del TQuery.

Consejo2. Para evitar conflictos de captura de información en cajas de texto donde quieres números, usa componentes ya especializados que te permiten introducir solo numeros. Tip revisa y documentate sobre estos componentes. http://jvcl.delphi-jedi.org/ hay muchos para evitar el trabajar en validaciones.


Saludos.