[Lazarus-es] formatfloat o formatcurr to float

Paola Bruccoleri pbruccoleri en adinet.com.uy
Mar Ene 8 23:42:14 CET 2013


Hola todos..

debe ser una pavada pero no lo encuentro!

cargo un TStringGrid con determinados valores. Los importes los cargo así:
       grdPendiente.Cells[9, i] := FormatCurr('#,#.00', 
qryPendiente.FieldByName('debe').AsFloat);
o
       grdPendiente.Cells[9, i] := FormatFloat(',.00', 
qryPendiente.FieldByName('debe').AsFloat);

(probé de las 2 formas)

Ahora, debo pasar al revés.. lo que está en el stringgrid a float para 
pode sumarlo (ya no tengo acceso al valor original)
hago esto:
var
   nTotal: double;
begin
      nTotal := StrToFloat(grdPendiente.Cells[9, 1]);
......


me sale el error..
"1,500.00" is an invalid float

probé tb definirlo como currency y usar StrToCurr.. pero obviamente 
joroban los . y ,
Quizás haya que sacarlos "a mano"...

alguna sugerencia?
muchas grcias!





More information about the Lazarus-es mailing list