Limitar entrada de decimais

Question

Estou trabalhando com Firebird 1.5, Delphi 7 e componentes IBX.Em algumas telas com componentes DataControls (TDBEdit, por exemplo), quero restringir a entrada a 4 casas decimais no maximo. Meu campo ...

Webjoel · Answer

Ol�!A solu��o para seu problema � simples e r�pida, mas tamb�m j� tive este problema.Use as seguintes format��es na propriedade DisplayFormat do ClientDataSet:* 4 Casas Decimais:[code:1:0e57bcdf0a]#,0.0000[/code:1:0e57bcdf0a]* 2 Casas Decimais:[code:1:0e57bcdf0a],0.00[/code:1:0e57bcdf0a]E d�-lhe F9![/code]...

Drf · Answer

webjoel, obrigado pela ajuda, mas essa configura��o ja tenho no meu dataset, mas nao soluciona meu problema, na verdade, � apenas a mascara!
Se a mascara for �#,0.0000� e eu entrar com �0,00001� ele vai mostrar �0,0000� mas internamente estar� gravando �0,00001� e justamente isso que nao quero, pois quero restringir a grava��o e n�o o modo que � mostrado.
Tem mais alguma dica?
Obrigado.

Ffabiop · Answer

D� para for�ar o descarte de casas decimais assim:

Valor := Int(valor*10000)/10000;

No caso, vamos deslocar a v�rgula 4 casas a direita e descartar o restantes da decimais (int) e depois deslocar a v�gula para seu lugar original. Pode fazer isso no onExit do campo ou no beforePost da tabela.

Drf · Answer

Agradeco a vc tb ffabiop, mas ainda nao � esse o meu problema. � que nao estou conseguindo ser claro.
Esse procedimento ignora as casas �a mais�, mas na verdade preciso identificar qdo � digitado casas �a mais� e tomar uma decisao, e nao apenas ignora-las, por isso tentei com a funcao abaixo mas nao funcionou:

if (Frac(Sender.AsFloat * 10000) > 0) then
abort;

�Abort� seria apenas um exemplo de uma decisao que poderia ser tomada.

Grato.

Joaoshi · Answer

Colega, se o problema � quando esta recebendo os valores digitados poderia tentar:

- Atraves da funcao [b:7fb5146ecf]POS[/b:7fb5146ecf] verificar a posi��o do separador decimal
- A partir dai verificar quantos digitos ap�s o separador decimal pela fun��o [b:7fb5146ecf]LENGTH[/b:7fb5146ecf]

Parece meio gambiarra mas pode ser uma sa�da.

F�rum Limitar entrada de decimais #356820