Redondeo

[DavidSG4]

funciona perfectamente. lo que no entiendo es porque en el dataset haces referencia 2 veces al campo fields [i]DataSet.Fields.Fields.DataType el dataset es una tabla que tiene campos porque tienes que acceder a ese segundo nivel?

mil gracias y disculpa mi ignorancia.

Empezado por 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.