Auto acrescentar os pontos e virgulas no edit OnExit
Olá Pessoal,
Então a minha duvida é que eu tenho um campo no banco de dados que é do tipo NUMERIC: SIZE 18 SCALE 3.
Eu tenho este código que faz com que meu edit OnExit após eu digitar o numero ele auto preenche com os pontos e virgula.
Se é digitado um valor que tenha no maximo 5 digitos (10000) funciona normalmente e ele fica desta maneira ex: 100,000
Porém quando eu digito um numero com 6 digitos (100000) no caso ex: 1.000,000 ele da um erro:
Project CMS.exe raised exception class EConvertError with message "2.000,000' is not a valid floating point value'.
Porém se eu tirar esse codigo que auto complementa com pontos e virgula e colocar um numero maior que 5 digitos ele funciona normalmente. Mas eu preciso do auto complementar no edit com pontos e virgula então tirar o código não é uma opção.
Alguem poderia me ajudar?
Desde já agradecido!
Então a minha duvida é que eu tenho um campo no banco de dados que é do tipo NUMERIC: SIZE 18 SCALE 3.
Eu tenho este código que faz com que meu edit OnExit após eu digitar o numero ele auto preenche com os pontos e virgula.
edtTotalValorKit.Text := FormatFloat('#,##0.000', StrToFloat(edtTotalValorKit.Text)/100);
Se é digitado um valor que tenha no maximo 5 digitos (10000) funciona normalmente e ele fica desta maneira ex: 100,000
Porém quando eu digito um numero com 6 digitos (100000) no caso ex: 1.000,000 ele da um erro:
Project CMS.exe raised exception class EConvertError with message "2.000,000' is not a valid floating point value'.
Porém se eu tirar esse codigo que auto complementa com pontos e virgula e colocar um numero maior que 5 digitos ele funciona normalmente. Mas eu preciso do auto complementar no edit com pontos e virgula então tirar o código não é uma opção.
Alguem poderia me ajudar?
Desde já agradecido!
Edson Vilhalba
Curtidas 0
Respostas
Ricardo
25/02/2014
Acabei de fazer um teste aqui.
Exemplo: um formulário com dois Edits e um Button.
No evento onclick do botão -> Edit2.Text := FormatFloat('#,##000.00', StrToFloat(Edit1.Text));
Pode digitar o que quiser que o resultado será XXXXXXXX,00
Exemplo: um formulário com dois Edits e um Button.
No evento onclick do botão -> Edit2.Text := FormatFloat('#,##000.00', StrToFloat(Edit1.Text));
Pode digitar o que quiser que o resultado será XXXXXXXX,00
GOSTEI 0