Ver Mensaje Individual
  #1  
Antiguo 08-09-2014
Avatar de lbidi
lbidi lbidi is offline
Miembro
 
Registrado: oct 2003
Ubicación: Montevideo- URUGUAY
Posts: 417
Reputación: 23
lbidi Va por buen camino
Puntuacion decimal

Estimados.

Tengo un proyecto en XE2 por el cual leo archivos .txt e inserto datos en una BD, luego de realizar ciertas operaciones matematicas con los datos que leo.

Sucede que en dichos archivos siempre los datos vienen en formato decimal con "," ex 13,2.

En el oncreate de mi formulario tengo el siguiente codigo.
Código Delphi [-]
    Application.UpdateFormatSettings := false;
    FormatSettings.DecimalSeparator  := '.';
    GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, asetting );
    aSetting.ThousandSeparator := ',' ;
    aSetting.DecimalSeparator  := '.' ;

aSetting es una variable de tipo TFormatSetttings.

Luego ademas tengo cuando leo y proceso la informacion este codigo.
Código Delphi [-]
     cValor_Hallado := StringReplace( cValor_Hallado, ',' , '.' , [rfReplaceAll] );
     nValor         := StrToFloat( Trim( cValor_Hallado ), aSetting );

Antes de hacer la segunda sentencia, el valor de cValor_Hallado es "14,2" ( ejemplo ) y luego
la variable nValor me queda 14.2 con el formato 99,99

Como puedo hacer para que me tome siempre formato 99.99 y que ademas sea independiente de la configuracion regional que posea la pc en donde se ejecute el sistema ?

Gracias
Responder Con Cita