Buscar por:

Formatar campo monetarios

Código

//No inicio sempre eu tinha que fazer um por em cada campo float na propriedade

displayformat = '#,##0.00' para que ficasse sem duas casas decimais

//então eu bolei esse procedimento no before ou after open da tabela

Procedure FormatFieldsFloat(FQuery : TDataSet);

Var // para format os campos float em um unico dataset

 X : Integer;

Begin

  For X:= 0 To FQuery.FieldCount  - 1 Do

   Begin

     If ((FQuery.Fields[x] Is TFloatField )

     Or (FQuery.Fields[x] Is TMDOBCDField))Then

         TFloatField(FQuery.FieldByName(FQuery.Fields[X].FieldName )).DisplayFormat := '#,##0.00';

   End;

End;