Formato currency varia entre XP y Win7

[[nlsgarcia]]

AgustinOrtu,

Empezado por AgustinOrtu

...Los programas bien diseñados no dependen de la configuración regional del sistema operativo para funcionar bien...Los programas bien diseñados formatean la información al formato mas adecuado/necesario...

Nelson.

[ecfisa]

Hola giulichajari.

Empezado por giulichajari

...
y para que no se vea en euros y con el signo peso ($) como hago?

Si, recuerdo el hilo. Pero aquél era un caso muy diferente, donde estaba definido el punto "." para ambos separadores (miles y decimal).

Y también recuerdo mi advertencia final:

De todos modos es una forma muy frágil de obtener el valor ya que depende de las configuraciones locales de los equipos en que funciona la aplicación.

De todos modos, si no me perdí de algo, creo giulichajari no manifestó la intención de realizar un cambio en la configuración regional...

Para la consulta actual acerca de signos euro/peso, podes jugar con las variables CurrencyString y CurrencyFormat, la primera de las cuales ya te la indicó AgustinOrtu.

Ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Clear;
  // Euro
  CurrencyString := '€'; // Símbolos: $, kr, £, ₤, R$, etc, ...
  CurrencyFormat := 3;   // un espacio despues del monto
  Memo1.Lines.Add(CurrToStrF(1234, ffCurrency, 0));
  // Peso
  CurrencyString := '$';
  CurrencyFormat := 2;   // un espacio delante del signo
  Memo1.Lines.Add(CurrToStrF(1234, ffCurrency, 0));
  // Euro (otro)
  CurrencyString := 'euros.'; // nombre
  CurrencyFormat := 3;
  Memo1.Lines.Add(CurrToStrF(1234, ffCurrency, 0));
  // Peso (otro)
  CurrencyString := 'pesos.';
  CurrencyFormat := 3; 
  Memo1.Lines.Add(CurrToStrF(1234, ffCurrency, 0));
end;

Muestra:


Casi me olvido... CurrToStrF


Saludos

[giulichajari]

He probado todo y funciona correctamente..