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.
Cita:
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.
|