Fórum Setando Currency para um Field via Código. #267592

procedure TForm1.SetCurrency(Field: TField);
begin
  if not Assigned(Field) then
    Exit;
  if Field is TFloatField then
    TFloatField(Field).currency := True
  else if Field is TCurrencyField then
    TCurrencyField(Field).currency := True
  else if Field is TBCDField then
    TBCDField(Field).currency := True
  {$IFNDEF VER130}
  else if Field is TFMTBCDField then
    TFMTBCDField(Field).currency := True
  {$ENDIF};
end;

procedure TForm1.ClientDataSet1AfterOpen(DataSet: TDataSet);
begin
  SetCurrency(DataSet.FieldByName(´CAMPO´));
end;