[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