Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 12-04-2010
peripla peripla is offline
Miembro
 
Registrado: abr 2006
Posts: 54
Poder: 19
peripla Va por buen camino
Ayuda al multiplicar

Hola gente, estoy realizando algunas operaciones para obtener el total de control de un archivo de texto.

i:Integer;
TotalControl:real;
for i:=1 to FrmBIL604.StringGridArchivos.RowCount -1 do begin
cuit:=Trim(FrmBIL604.StringGridArchivos.cells[columna_cuit,i]);
TotalControl:= totalcontrol + (i * StrTofloat(cuit));
end;

Bueno, el resultado que me da es : 1.8320334199e+18.

Yo quisiera convertirlo al número completo, con todos los numeros....

Desde ya muchas gracias!!!!
Responder Con Cita
  #2  
Antiguo 12-04-2010
Avatar de DriverOp
DriverOp DriverOp is offline
Miembro
 
Registrado: ago 2007
Posts: 93
Poder: 17
DriverOp Va por buen camino
El "numero que te da" es un número completo con todos los números, solamente que Delphi te los muestra en notación científica. Si quieres controlar el formato al momento de visualizarlo usa la función Format('%8.2G',[TotalControl]); pero en el código que has puesto no estás mostrando TotalControl por ninguna parte...
Responder Con Cita
  #3  
Antiguo 12-04-2010
peripla peripla is offline
Miembro
 
Registrado: abr 2006
Posts: 54
Poder: 19
peripla Va por buen camino
Gracias Driver, a eso me refería. A poder visualizarlo sin la notación científica. Igualmente pegué el format que me pasaste (Format('%8.2G',[TotalControl])), el resultado me lo muestra 1.8E80.
Responder Con Cita
  #4  
Antiguo 12-04-2010
Avatar de DriverOp
DriverOp DriverOp is offline
Miembro
 
Registrado: ago 2007
Posts: 93
Poder: 17
DriverOp Va por buen camino
Mi error. Debes usar F en vez de G. (G es para formato general y F para formato fijo, este último es el que quieres).

Format('%8.2F',[TotalControl]);
Responder Con Cita
  #5  
Antiguo 12-04-2010
peripla peripla is offline
Miembro
 
Registrado: abr 2006
Posts: 54
Poder: 19
peripla Va por buen camino
Tampoco Driver, me da el mismo resultado que tenía sin formatearlo. Igualmente estoy mas que agradecida, no te molesto más, lo busco yo....
Responder Con Cita
  #6  
Antiguo 13-04-2010
Avatar de Ñuño Martínez
Ñuño Martínez Ñuño Martínez is offline
Moderador
 
Registrado: jul 2006
Ubicación: Ciudad Catedral, Españistán
Posts: 6.000
Poder: 25
Ñuño Martínez Tiene un aura espectacularÑuño Martínez Tiene un aura espectacular
Un detalle: el resultado total tiene dieciocho cifras (~1'83 x (10 ^ 18)). Quizá sean demasiadas para ese formato.
__________________
Proyectos actuales --> Allegro 5 Pascal ¡y Delphi!|MinGRo Game Engine
Responder Con Cita
Respuesta



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
Como multiplicar dos memos rufo Varios 5 15-12-2009 17:20:55
Multiplicar 2 celdas de un stringgrid Elite237 OOP 3 11-11-2008 02:02:59
multiplicar dos tablas fabian20s SQL 1 31-03-2005 15:31:08
Clasico: multiplicar campos eber SQL 1 09-06-2004 06:01:59
Multiplicar en una consulta muli Firebird e Interbase 1 20-06-2003 00:05:37


La franja horaria es GMT +2. Ahora son las 20:42:34.


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