Aparece símbolo de moneda en todo el sistema

[Oscar Guzmán]

Hola a todos y gracias por su tiempo y respuestas

Tengo un pequeño sistema de facturación e inventario y me doy cuenta que a veces, cuando se abre el sistema todo tiene el símbolo de moneda adoptado en la configuración regional del sistema operativo (Windows), es decir, si la moneda es euros por ejemplo, todo aparece con euros, los dbgrid, los edits, las columnas de los reportes de quick report y todo donde vayan montos. Si cierro el sistema y vuelvo a abrirlo ya está funcionando bien y no aparece el símbolo de moneda en ningún sitio dentro del sistema, después, tal vez dentro de un día o dos, cuando abren el sistema, vuelve a entrar en ese modo, todo se resuelve cerrando el sistema y volviendo a entrar, pero el problema es que a veces hacen facturas y la persona que las hacen no se percatan de eso y cuando mandan a imprimir la factura salen los símbolos de moneda impresos, lo que hace que los montos se vean incompletos. He estado buscando el en sistema y no encuentro la falla y no entiendo porqué la intermitencia del problema, si fuese contínuo tal vez sería más facil encontrar el error.

Gracias

[ecfisa]

Hola Oscar.

Si, los fallos esporádicos son los más complejos de encontrar. De todos modos, si no deseas el símbolo de moneda, intenta agregando estas líneas al proyecto:

Código Delphi [-]
program Project1; 
{$R *.res}

uses
  SysUtils, 
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  ...;
 
begin
  //
  CurrencyString:= ''; // <--
  CurrencyFormat:= 0; // opcional
  Application.UpdateFormatSettings:= False;
  // 
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Saludos

[Oscar Guzmán]

Hola Ecfisa, gracias por tu respuesta, voy agregar las instrucciones que me pasaste y veré como se comporta ésta semana, estaré de nuevo aquí informando como ha funcionado.

[[AgustinOrtu]]

Buenas, revisando un proyecto que tenia por ahi, me encuentro con el siguiente codigo en el evento OnException de un ApplicationEvents:

Código Delphi [-]
procedure TFPrincipal.ApplicationEvents1Exception(Sender: TObject;
  E: Exception);
begin
    Application.ShowException(E);
    CurrencyString:= '';
    NegCurrFormat:= 2;
end;

Lamentablemente esto surgio como suerte de algun parche para algo que molestaba y no se documento la razon exacta (que ocurrencia ), pero vagamente recuerdo que era algo similar a lo que planteas