Conversion de punto decimal
 

Buenas tardes a todos.

Tengo el siguiente codigo puesto en el main form:

Código Delphi [-]
procedure TF_Inici.ApplicationMessage(var Msg: TMsg; var Handled: Boolean);
var
  Fmt: TFormatSettings;
begin
     Fmt := TFormatSettings.Create;
     Fmt.DecimalSeparator:='.';
     Fmt.ThousandSeparator:=',';
     SysUtils.FormatSettings := Fmt;
end;

y en las declaraciones publicas este codigo:

Código Delphi [-]
 public
    { Public declarations }
        Usuari: Integer;
        Path, Vers: string;
        procedure ApplicationMessage(var Msg: TMsg; var Handled: Boolean);
    end;

En el On Create del form este código:

Código Delphi [-]
procedure TF_Inici.FormCreate(Sender: TObject);
begin
        Application.OnMessage:=ApplicationMessage;

Pues bien, no funciona en la última linea, me dice Fmt =(error evaluating), pero si situo el cursor sobre Fmt antes de hacer la evaluacion, el Decimal Separator vale '.' y el Thousand separator ',' que es lo que quiero que guarde FormatSettings.

Alguna idea?
Otro metodo de realizar este proceso?

Gracias y saludos

Josep

Hola josep.

Aunque no entiendo por que usas ese evento para la acción, estas intentando crear una instacia de TFormatSettings que está declarado de tipo record.

Asigna directamente el valor a las variables:

Código Delphi [-]
begin
  DecimalSeparator  := '.';
  ThousandSeparator := ',';
  ...

Saludos :)

¿Quiéres decir que en la base de datos guarde números con comas o puntos?
Si es eso, te aconsejo que lo olvides, simplemente guarda números, luego ya lo presentarás en pantalla con el formato que quieras tú o el usuario.

Gracias Ecfisa.

Por lo que deduzco deberia quedar así?:

Código Delphi [-]
procedure TF_Inici.ApplicationMessage(var Msg: TMsg; var Handled: Boolean); begin      
DecimalSeparator:='.';      
ThousandSeparator:=','; 
end;

Saludos

Hola Casimiro.

Lo que quiero es ingresar un valor decimal en un edit por ejemplo 36.11 y que se guarde así.
La configuración del PC por motivos de otros programas esta puesta con el decimalseparator en ',' y al guardar un decimal como 36,11 me da el error de Firebird.

Saludos

Lo que propone ecfisa vale para las versiones mas antiguas de Delphi; en las mas nuevas es correcta la sinatxis que estas usando, es decir, acceder usando un registro.

Lo que haces mal es el intentar asignar el valor al registro global; una de dos:

1) O escribes directamente en el registro global del programa (es decir, te ahorras la variable Fmt)

Código Delphi [-]
  // inicializas el registro global FormatSettings, esto podes hacerlo en el .dpr, antes de crear los  formularios
  Application.Initialize;
  // FormatSettings es SysUtils.FormatSettings
  FormatSettings.ThousandSeparator := '.';

  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;

Tene en cuenta que esta alternativa modificara la configuracion regional de Windows, y puede que otros programas funcionen mal debido a esto; lo podes solucionar agregando las lineas:

Código Delphi [-]
  // inicializas el registro global FormatSettings, esto podes hacerlo en el .dpr, antes de crear los  formularios
  Application.Initialize;

  Application.UpdateFormatSettings := False;
  Application.UpdateMetricSettings := False;

  // FormatSettings es SysUtils.FormatSettings
  FormatSettings.ThousandSeparator := '.';


  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;

O lo que es mejor aun, creas tu propio registro TFormatSettings, tal y como venias haciendo, y luego cuando llamas a una funcion de conversion, lo pasas como argumento

Un ejemplo sencillo:

Código Delphi [-]
var
  Form1: TForm1;
  MyFormatSettings: TFormatSettings;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Clear;
  Memo1.Lines.Add('1.23 - Usando MyFormatSettings: ' + FloatToStr(1.23, MyFormatSettings));
  Memo1.Lines.Add('1.23 - Usando la configuracion del sistema: ' + FloatToStr(1.23));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  MyFormatSettings := TFormatSettings.Create;
  MyFormatSettings.ThousandSeparator := ',';
  MyFormatSettings.DecimalSeparator := '.';
end;

En el memo se obtiene:

Gracias Agustin

He puesto el código así:

Código Delphi [-]
procedure TF_Principal.FormCreate(Sender: TObject);
var
Fmt: TFormatSettings;
begin
     Fmt := TFormatSettings.Create;
     Fmt.DecimalSeparator:='.';
     Fmt.ThousandSeparator:=',';
end;

Compila y ejecuta bien pero debo introducir como decimal la coma ','.
No es exactamente lo que quiero ya que me gustaria que en el edit me mostrara el punto '.', pero funciona.

Saludos

Desconocía eso, ¿ Quiere decir que ahora TFormatSettings se ajusta a los nuevos record con métodos ?
Te hago una consulta por que no veo que se libere, ¿ Esos objetos lo hacen de forma automática ? (estoy muy verde sobre esos cambios... :()

Saludos :)

Son record, es como los string, no hace falta manejar la memoria explícitamente

El Create en este caso es un método de clase estático, una función que retorna una instancia de TFormatSettings inicializada con el locale del sistema

Jafera, la cuestión es que ese registro lo tenés que usar como parámetro en las llamadas a métodos de conversión, revisa el ejemplo que yo puse arriba con el FloatToStr