Componente EditText com formatação em moeda

[Valdiney F. Lima 0]

Preciso de um componente que me mostre a formatação em moeda em um Edit.Ou alguma função que faça isso.Abraços

[marcio.theis 3]

Existe um componente chamado TRealEdit, onde que pode fazer formatação de campos com valor ou inteiro, sendo que ele mostra-se em um edit, se quiser pode baixar aqui

[Hugo Slepicka 0]

tenta assim...

 

Edit1.Text := FloatToStrf(valor_moeda,ffcurrency,12,2);

 

flw aew! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Carlos Edu 0]

E ai Dr. Bom cara, é o seguinte, existem ótimos componentes que você pode utilizar pra fazer isso, porém sugiro que faço como o Hugo, pois assim você evita de utilizar componentes externos que poderam lhe dar problemas no futuro. Se quiser tbm poderá fazer assim: Edit1.Text := FormatFloat('#####0.00',StrToFloat(Edit1.Text)); São simples e prático.Carlos EduDesenv. Delphi.*Programar também é um expressão artistica*

[Valdiney F. Lima 0]

E ai Dr. Bom cara, é o seguinte, existem ótimos componentes que você pode utilizar pra fazer isso, porém sugiro que faço como o Hugo, pois assim você evita de utilizar componentes externos que poderam lhe dar problemas no futuro. Se quiser tbm poderá fazer assim: Edit1.Text := FormatFloat('#####0.00',StrToFloat(Edit1.Text)); São simples e prático.Carlos EduDesenv. Delphi.*Programar também é um expressão artistica*

Da forma que você me passou Carlos, ao digitar ele adiciona somente a virgula... O ponto de milhar ele nao coloca... Eu coloquei no OnChange do componente Edit1.Qual o motivo de nao aparecer o ponto?

[Carlos Edu 0]

E ai Dr. Bom cara, é o seguinte, existem ótimos componentes que você pode utilizar pra fazer isso, porém sugiro que faço como o Hugo, pois assim você evita de utilizar componentes externos que poderam lhe dar problemas no futuro. Se quiser tbm poderá fazer assim: Edit1.Text := FormatFloat('#####0.00',StrToFloat(Edit1.Text)); São simples e prático.Carlos EduDesenv. Delphi.*Programar também é um expressão artistica*

Da forma que você me passou Carlos, ao digitar ele adiciona somente a virgula... O ponto de milhar ele nao coloca... Eu coloquei no OnChange do componente Edit1.Qual o motivo de nao aparecer o ponto?

Utilize assim então:Edit1.Text := FormatFloat('#,##0.00',StrToFloat(Edit1.Text)); Na verdade não gosto muito de colocar o ponto, pois quando vamos usar este falor pra fazer calculos da pau, pois não reconhecem o ponto como valor float. Pra usar somente como visualização não tem problema. Se for utiliza-lo pra calculos não se esqueça de formatar novamente.Carlos EduDesenv. Delphi.*Programar também é um expressão artistica*

[Valdiney F. Lima 0]

E ai Dr. Bom cara, é o seguinte, existem ótimos componentes que você pode utilizar pra fazer isso, porém sugiro que faço como o Hugo, pois assim você evita de utilizar componentes externos que poderam lhe dar problemas no futuro. Se quiser tbm poderá fazer assim: Edit1.Text := FormatFloat('#####0.00',StrToFloat(Edit1.Text)); São simples e prático.Carlos EduDesenv. Delphi.*Programar também é um expressão artistica*

Da forma que você me passou Carlos, ao digitar ele adiciona somente a virgula... O ponto de milhar ele nao coloca... Eu coloquei no OnChange do componente Edit1.Qual o motivo de nao aparecer o ponto?

Utilize assim então:Edit1.Text := FormatFloat('#,##0.00',StrToFloat(Edit1.Text)); Na verdade não gosto muito de colocar o ponto, pois quando vamos usar este falor pra fazer calculos da pau, pois não reconhecem o ponto como valor float. Pra usar somente como visualização não tem problema. Se for utiliza-lo pra calculos não se esqueça de formatar novamente.Carlos EduDesenv. Delphi.*Programar também é um expressão artistica*

Deu certo.Valeu!

[Hugo Slepicka 0]

Sussa!!!

 

precisando... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[bdexterholland 0]

Um maskedit num resolvia?Fiz uns testes aqui em casa e não estou entendendo porque o comando MaskEdit1.Text:=Edit1.Text; não funciona... alguém me explica?