Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 20-01-2016
Camilo Camilo is offline
Miembro
 
Registrado: jun 2007
Posts: 147
Poder: 17
Camilo Va por buen camino
"floating point division by zero" En unas maquinas si en unas maquinas no

Amigos foristas me sucede algo raro que no me había pasado antes y no encuentro nada parecido en red (Juro que he buscado).
Resulta que el dichoso error "floating point division by zero" me sale en algunas maquinas pero en otras no.

Resulta que tengo una form donde tengo varios procedimientos muy similares a este: de hecho este es uno de ellos:
Código Delphi [-]
Procedure TFVenta.SumaCantidad;
var
k, Suma: integer;
a, c, d: Extended;
begin
  d:= 0;
  a := StrToInt(StringGrid1.Cells[5, StringGrid1.Row]); // Precio
  c := StrToInt(Edit8.Text); //Cantidad
  d:=  (a*c); // Precio x Cantidad

StringGrid1.Cells[4, StringGrid1.Row]:=  Edit8.Text;  //CANTIDAD
StringGrid1.Cells[6, StringGrid1.Row]:=  FormatFloat('$ #0,.00',d);
StringGrid1.Cells[8, StringGrid1.Row]:= FloatToStr(d);

Suma := 0;
  StringGrid1.Cells[7, StringGrid1.Row]:= StringGrid1.Cells[1, StringGrid1.Row];
  for k := 0 to StringGrid1.RowCount - 1 do
    if k <= StringGrid1.RowCount - 1 then
      Suma := Suma + StrToIntdef(StringGrid1.Cells[8, k + 1], 0);
      Edit7.Text:=  FormatFloat('$ #0,.00', Suma);
      Edit5.Text:=  IntToStr(Suma);
end;
digamos unos 4 procedimiento muy similares que llamo desde algun boton para que se ejecute. Los nombres de las variables y la estructura misma del procedimiento en estos dias me pongo en el plan de cambiarlas para mejor comprension del codigo con alguna metodologia como "notación camello" o algo asi.
Bien pero el tema que quiero compartir con ustedes en la busqueda desesperada por cierto, de una solución es lo siguiente.

Cojo la base de datos y el ejecutable y lo llevo a una maquina (sucede como con unas 5 hasta ahora) y cuando lo ejecuto sale el error (la ejecucion es por ejemplo el llamado a la funcion). En casa y en la mayoria de las maquinas funciona perfectamente. me he dado a la tarea de evaluar cosas como sistema operativo y configuracion regional y nada. Lo que me tiene mas "Cabezon" es que en unas maquinas si funciona perfecto y en optras no aun siendo la misma base de datos y el mismo ejecutable.

Trabajo con dlphi XE y Firebird.

Gracias de antemano.

Última edición por Casimiro Notevi fecha: 20-01-2016 a las 09:16:47.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
"Not a valid floating point value" david.rguez Varios 2 12-12-2007 13:42:57
""" is not a valid floating point value con edit Petolansa Varios 6 11-12-2007 00:07:13
"floating point overflow" en campocalculado ANXO Conexión con bases de datos 0 22-01-2006 16:59:58
deadlock en unas maquinas pero no en otras ??? DobleSiete Conexión con bases de datos 6 01-06-2005 14:12:58
Unas preguntas? Waldo Conexión con bases de datos 2 01-11-2003 06:45:50


La franja horaria es GMT +2. Ahora son las 20:36:46.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi