Currency desde DBGrid a StringGrid sin perder precisión

[Dexter182]

Hola Casimiro.
Muchas gracias por responder.

El campo Precio es del tipo Moneda (uso una base de datos de Access XP).

Saludos!

[ecfisa]

Hola.

¿ Con que función pasas el valor moneda a las celdas del StringGrid ?

Saludos

[Dexter182]

Hola ecfisa!.

Muchas gracias a vos también por responder.

Al importe lo tomo desde el DBGrid de la siguiente forma:

Código Delphi [-]
StringGrid.Cells[3,i] := DBGrid_Resultado.Fields[2].Text

Por lo que me estás preguntando, intuyo que no es la manera más correcta.

Saludos!

[ecfisa]

Hola Dexter182.

No, no digo que no sea correcta... pero por las dudas proba de este modo:

Código Delphi [-]
...
uses Math;

...
  StringGrid.Cells[3, i] := FloatToStr( RoundTo(DBGrid_Resultado.Fields[2].AsCurrency, -2) );

Y también recorda que es mejor usar la función FieldByName que la propiedad vectorial Fields, ya que si algún día cambias el órden de las columnas podrías tener problemas.

Saludos

[Dexter182]

Ecfisa: ¡Nuevamente gracias por tu tiempo!

Probé de la manera que me recomiendas y me salta una excepción EConverterError '$ 38,54' is not a valid floating point value.
Por las dudas cambié el FloatToStr por CurrToStr, pero obtuve los mismo resultados.

Empezado por ecfisa

Y también recorda que es mejor usar la función FieldByName que la propiedad vectorial Fields, ya que si algún día cambias el orden de las columnas podrías tener problemas.

OK!. La verdad que no he tenido en cuenta ese detalle.
Además mejora la legibilidad del código.
¡Gracias por el consejo!

Saludos!

[[AgustinOrtu]]

Crea un registro TFormatSettings e indica los parámetros de conversión acorde a la configuración regional de tu sistema. Ese registro lo envías como parámetro a las versiones sobrecargadas de cualquier función de conversión