cambiar formato

[ercrizeporta]

hola, necesito saber si hay alguna forma de cambiar el formato de los numeros en delphi. Necesito que los numero de tipo float en vez de mostrarmelos como "3,4" me lo muestre como "3.5", ya que cuando voy a introducirlo en la base de datos no me lo reconoce correctamente y si los digitos van separados por "," solo me inserta los numeros enteros, sin los digitos decimales.
mcuhas gracias!!

[dec]

Hola,

Investiga sobre la variable DecimalSeparator.

[Mick]

Código Delphi [-]
uses SysUtils;

DecimalSeparator:= '.';

Pero esto es una muy mala idea en la mayoria de los casos (siempre hay excepciones).

Los separadores decimales, de miles , de fecha etc, cambian de pais en pais y la gente esta acostumbrada a los formatos de su zona.

El error que tienes es que metes la informacion en la base de datos con metodos que no son correctos. Usando de forma correcta los parametros de las queries no se dara ese problema sea cual sea la configuracion regional de windows.

Saludos

[Besto]

Cambia tú el formato, haz un StringReplace. Cuando el caracter sea una coma pon un punto.
Eso sí, solo sería para mostrarlos en formato tipo texto. Internamente para trabajar con números tendría que tener comas.

[[BlueSteel]]

Hola ercrizeporta

Pienso que deberias cambiar la configuración regional... Inicio - Panel de Control - Configuración Regional

ahí puede establecer cual será el separador decimal.. pero ojo.. cuando el programa lo ejecutes en otro Pc, deberás establecer las mismas características...

Mira.. el sgte codigo lo debes colocar en el Evento OnKeyPreess de Edit donde ingresar el dato...

la primera lines te cambia el punto (.) por una coma (,).. lo puedes usar al reves tambien.. y te valida que solo se ingresen numeros

Código Delphi [-]
     If Key='.' Then Key:=',';
     If Pos(',',Edit1.Text)=0 Then
        If not (Key in ['0'..'9',',',#8]) Then Key:=#0
           else Exit
     else
       If not (Key in ['0'..'9',#8]) Then Key:=#0;

espero que te sirva..