Alexander
05-07-2005, 23:31:31
He revisado casi todos los hilos sobre este tema pero no obtengo un solución.
A ver si estoy en lo correcto:
Cuando coloco las siguientes lineas de código en la creación de mi Main Form, funciona el ingreso de datos:
ThousandSeparator := ',';
DecimalSeparator := '.';
Application.UpDateFormatSettings := False;
Por ese lado ya está solucionado.
También encontre hacer una Unit ej. unPuntoComa
unit unPuntoComa;
interface
Uses SysUtils;
implementation
initialization
ThousandSeparator := ',';
DecimalSeparator := '.';
end.
y colocarla donde se necesite. Como les comento para el ingreso de datos funciona perfecto.
También encontré, ubicar el siguiente código en la inicialización del DataModule, pero de la misma forma solo me funciona para el ingreso de datos.
initialization
ThousandSeparator := ',';
DecimalSeparator := '.';
Ahora, cuando estoy mostrando los datos en una grilla, (QuantumExpressGrid) la muestra convirtiendo el dato String en Float, para darle formato
FormatFloat('#,###.#0 ',StrToFloat(AViewInfo.DisplayValue))
Aqui es donde no he podido hacer que el dato que viene lo convierta a float.
Ejemplo: Guardo el dato 120,000.15 y lo acepta
En la base de datos esta como 120.000,15
Al leerlo, el string es 120.000,15 y no lo permite convertir a 120,100.15 para mostrarlo.
Cual puede ser una solucion definitiva?. He visto que muchas personas tienen el mismo problema.
Alguien tienen una solución.
Por adelantado, muchas gracias por sus comentarios.
A ver si estoy en lo correcto:
Cuando coloco las siguientes lineas de código en la creación de mi Main Form, funciona el ingreso de datos:
ThousandSeparator := ',';
DecimalSeparator := '.';
Application.UpDateFormatSettings := False;
Por ese lado ya está solucionado.
También encontre hacer una Unit ej. unPuntoComa
unit unPuntoComa;
interface
Uses SysUtils;
implementation
initialization
ThousandSeparator := ',';
DecimalSeparator := '.';
end.
y colocarla donde se necesite. Como les comento para el ingreso de datos funciona perfecto.
También encontré, ubicar el siguiente código en la inicialización del DataModule, pero de la misma forma solo me funciona para el ingreso de datos.
initialization
ThousandSeparator := ',';
DecimalSeparator := '.';
Ahora, cuando estoy mostrando los datos en una grilla, (QuantumExpressGrid) la muestra convirtiendo el dato String en Float, para darle formato
FormatFloat('#,###.#0 ',StrToFloat(AViewInfo.DisplayValue))
Aqui es donde no he podido hacer que el dato que viene lo convierta a float.
Ejemplo: Guardo el dato 120,000.15 y lo acepta
En la base de datos esta como 120.000,15
Al leerlo, el string es 120.000,15 y no lo permite convertir a 120,100.15 para mostrarlo.
Cual puede ser una solucion definitiva?. He visto que muchas personas tienen el mismo problema.
Alguien tienen una solución.
Por adelantado, muchas gracias por sus comentarios.