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.