ioco
03-03-2010, 17:29:09
Buenas! Tengo ya casi terminado un programa de contabilidad casera y me encuentro con que a la hora de consultar las entradas guardadas a veces me devuelve valores incorrectos :S
Les planteo lo que tengo porque yo ya no sé qué hacer...
Tengo un file con datos del tipo:
TDato = record
Concepto:string[25];
Cantidad:real;
Dia:integer;
end;
Estos datos los guardo desde un formulario de entrada de datos, que funciona correctamente.
Entonces, desde otro formulario de consulta de datos, muestro los gastos para el periodo seleccionado agrupados por tipo de gasto.
Para esto tengo una label con el nombre del concepto y un edit para resaltar el valor de la salida. Entonces, al presionar un botón se rellenan los edits con los datos.
Los edits los cargo todos con el valor "0" para empezar y luego voy añadiendo las cantidades adecuadas a cada concepto con:
{Consultamos cada dato del fichero}
For i:=1 to LongFichero(MesSeleccionado) do
Begin
ConsultarDato(i,MesSeleccionado);
{Si el dato está dentro del rango de días especificado, suma su cantidad
a la existente en el campo correspondiente de salida}
If (Dato.Dia>=min) and (Dato.Dia<=max) then
If Dato.Concepto='Agua' then
Edit5.Text:=FloatToStr(StrToFloat(Edit5.text)+Dato.Cantidad)
else If Dato.Concepto='Aseo' then
//...Sigue para cada concepto (20 en total)
Bueno, creo que con esto se pueden hacer una idea del programa. Si falta algo lo subiré cuanto antes.
Y ahí viene mi problema... Si Dato.Cantidad es un número cualquiera (10, 15, 100, -30 (acepta numero negativos para correcciones), 50.4, etc.) no me da ningún problema. Pero para números concretos me devuelve valores erroneos (por ejemplo, he detectado que si el dato es 15.7 me devuelve 15.69999999999 y que si tenemos dos datos del mismo concepto que sean 15.7 y -15.7 (que se trataría de una corrección y cuyo resultado debería de ser 0) me devuelve -9.xxxxxx (no recuerdo bien los decimales, pero no era periódico)).
No sé si es tema del edit o qué pasa ya que he comprobado copiando todas las entradas del file a un textfile y consultandolas con bloc de notas los valores guardados son los que deberían (15.7 sale 15.7 y no 15.69999999).
Así que con esto creo que se confirma que el dato está bien guardado y el reduce el posible fallo a la lectura del dato mediante
Edit5.Text:=FloatToStr(StrToFloat(Edit5.text)+Dato.Cantidad)
pero no entiendo dónde puede fallar ni porqué falla para unos números y para otros no :S
Espero haber sido suficientemente claro y espero me disculpen por la barbaridad de post.
Muchísimas gracias de antemano ya por leer mi duda :)
Les planteo lo que tengo porque yo ya no sé qué hacer...
Tengo un file con datos del tipo:
TDato = record
Concepto:string[25];
Cantidad:real;
Dia:integer;
end;
Estos datos los guardo desde un formulario de entrada de datos, que funciona correctamente.
Entonces, desde otro formulario de consulta de datos, muestro los gastos para el periodo seleccionado agrupados por tipo de gasto.
Para esto tengo una label con el nombre del concepto y un edit para resaltar el valor de la salida. Entonces, al presionar un botón se rellenan los edits con los datos.
Los edits los cargo todos con el valor "0" para empezar y luego voy añadiendo las cantidades adecuadas a cada concepto con:
{Consultamos cada dato del fichero}
For i:=1 to LongFichero(MesSeleccionado) do
Begin
ConsultarDato(i,MesSeleccionado);
{Si el dato está dentro del rango de días especificado, suma su cantidad
a la existente en el campo correspondiente de salida}
If (Dato.Dia>=min) and (Dato.Dia<=max) then
If Dato.Concepto='Agua' then
Edit5.Text:=FloatToStr(StrToFloat(Edit5.text)+Dato.Cantidad)
else If Dato.Concepto='Aseo' then
//...Sigue para cada concepto (20 en total)
Bueno, creo que con esto se pueden hacer una idea del programa. Si falta algo lo subiré cuanto antes.
Y ahí viene mi problema... Si Dato.Cantidad es un número cualquiera (10, 15, 100, -30 (acepta numero negativos para correcciones), 50.4, etc.) no me da ningún problema. Pero para números concretos me devuelve valores erroneos (por ejemplo, he detectado que si el dato es 15.7 me devuelve 15.69999999999 y que si tenemos dos datos del mismo concepto que sean 15.7 y -15.7 (que se trataría de una corrección y cuyo resultado debería de ser 0) me devuelve -9.xxxxxx (no recuerdo bien los decimales, pero no era periódico)).
No sé si es tema del edit o qué pasa ya que he comprobado copiando todas las entradas del file a un textfile y consultandolas con bloc de notas los valores guardados son los que deberían (15.7 sale 15.7 y no 15.69999999).
Así que con esto creo que se confirma que el dato está bien guardado y el reduce el posible fallo a la lectura del dato mediante
Edit5.Text:=FloatToStr(StrToFloat(Edit5.text)+Dato.Cantidad)
pero no entiendo dónde puede fallar ni porqué falla para unos números y para otros no :S
Espero haber sido suficientemente claro y espero me disculpen por la barbaridad de post.
Muchísimas gracias de antemano ya por leer mi duda :)