Conversion de punto decimal

[jafera]

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

[jafera]

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

[[AgustinOrtu]]

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:

1.23 - Usando MyFormatSettings: 1.23
1.23 - Usando la configuracion del sistema: 1,23

[jafera]

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

[ecfisa]

Empezado por AgustinOrtu

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

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

[[AgustinOrtu]]

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