Puntuacion decimal

[lbidi]

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

[ecfisa]

Hola Ibidi.

No he usado XE2, pero fijate si este modo te lo resuelve:

Código Delphi [-]
  SetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SDECIMAL,  '.'); // ó ','
  DecimalSeparator:= '.'; // ó ','

Saludos

[lbidi]

Funciona perfecto.

Gracias ecfisa

Saludo cordial