Delphi dicas

Formatar campo monetarios

//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;

por : Marcos Aurelio