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:
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; end;
procedure TForm1.btnEuroClick(Sender: TObject);
begin
SetMoney(True); 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