Redondeo

[ecfisa]

Hola DavidSG4.

No uso Paradox por lo que no sé si es la mejor forma, pero de este modo funciona correctamente:

Código Delphi [-]
procedure SetDisplayFormat(DataSet: TDataSet; const Mask: string);
var
  i: Integer;
begin
  for i:= 0 to DataSet.FieldCount-1 do
    if DataSet.Fields.Fields[i].DataType = ftFloat then
      TFloatField(DataSet.Fields[i]).DisplayFormat:= Mask;
end;

Ejemplo de llamada:

Código Delphi [-]
   SetDisplayFormat(Query1, '0.00,00');

Las etiquetas... las etiquetas...

Un saludo.