cambiar formato

[[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..