Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Ayuda al multiplicar (https://www.clubdelphi.com/foros/showthread.php?t=67339)

peripla 12-04-2010 19:05:28

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!!!!

DriverOp 12-04-2010 21:58:31

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...

peripla 12-04-2010 22:33:17

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.

DriverOp 12-04-2010 22:37:43

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]);

peripla 12-04-2010 22:54:03

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....

Ñuño Martínez 13-04-2010 09:26:00

Un detalle: el resultado total tiene dieciocho cifras (~1'83 x (10 ^ 18)). Quizá sean demasiadas para ese formato.


La franja horaria es GMT +2. Ahora son las 16:33:20.

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