Conversion de punto decimal

[jafera]

Buenas tardes a todos.

Tengo el siguiente codigo puesto en el main form:

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:

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:

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

[ecfisa]

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:

begin
DecimalSeparator := '.';
ThousandSeparator := ',';
...


Saludos :)

[Casimiro Notevi]

... es lo que quiero que guarde ¿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.

[jafera]

Gracias Ecfisa.

Por lo que deduzco deberia quedar así?:

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)


// 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:


// 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:


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í:

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]

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