gravar casas decimais

Delphi

30/05/2017

Pessoal tem um combo onde eu digo a quantidade de casa decimais eu vou querer
ele mostra na tela mas qdo gravo ele grava sem as casa decimais e qdo quero gerar um relatório ele não mostra as casas decimais o que devo fazer?

vejam o código da combo

procedure TfrCadCalibracao.cbxCasaExit(Sender: TObject);
begin
inherited;
cdsCalibraItensREFERENCIA.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
cdsCalibraItensCICLO01.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
cdsCalibraItensCICLO02.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
cdsCalibraItensCICLO03.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
cdsCalibraItensCICLO04.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
cdsCalibraItensCICLO05.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
cdsCalibraItensCICLO06.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
cdsCalibraItensMEDIA.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
cdsCalibraItensERRO.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
cdsCalibraItensINCERTEZA.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
cdsCalibraItensERRO_INCERTEZA.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
cdsCalibraItensERRO_INST.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
end;

por favor alguén me ajude
Antonio Santos

Antonio Santos

Curtidas 0

Respostas

Daniel Araújo

Daniel Araújo

30/05/2017

Boa tarde Antônio!

DisplayFormat é o formato que vai ser exibido. Qual o tipo de dado do campo? Certifique-se que ele seja um tipo com ponto flutuante, como o Currency. Se for do tipo Int por exemplo, ele nunca salvará as casas decimais.
GOSTEI 0
Antonio Santos

Antonio Santos

30/05/2017

o campo é decimal
GOSTEI 0
POSTAR