Tipos de moneda en firebird 2.5

[ecfisa]

Hola.

Como te dije antes, no es Firebird quién debe encargarse de los formatos de presentación sino el lenguaje, revisa las variables globales:

• ThousandSeparator
• DecimalSeparator

Un ejemplo:

Código Delphi [-]

procedure SetMoney(Euro: Boolean = False);
begin
  if Euro then
  begin
    ThousandSeparator := '.';
    DecimalSeparator  := ',';
  end
  else
  begin
    ThousandSeparator := ',';
    DecimalSeparator  := '.';
  end;
end;

procedure TForm1.btnDolarClick(Sender: TObject);
begin
  SetMoney; // dolar-peso
end;

procedure TForm1.btnEuroClick(Sender: TObject);
begin
  SetMoney(True); // euro
end;

var
  Monto: Double = 1500.99;

procedure TForm1.btnShowClick(Sender: TObject);
begin
  ListBox1.Items.Add( FormatFloat(',0.00', Monto) );
end;

Podes asegurar que no se cambie el formato durante la ejecución mediante:

Código Delphi [-]
Application.UpdateFormatSettings := False;

También te va a resultar útil la informacion y consejos de este hilo: float con coma (,) o punto (.)

Saludos