Fala galera de Delphi, tudo beleza?
A suíte ACBr, muito conhecida da comunidade Delphi realmente é fantástica.
E hoje vamos falar sobre o TACBrExtenso, que é um componente não visual que nos
fornece várias ferramentas para a manipulação da representação escrita dos números,
inclusive com tratamentos para nomenclaturas monetárias (reais, centavos e etc).
Vamos ao estudo!
O componente possui algumas propriedades:
StrMoeda : String usada para definir o nome da moeda no singular. Exemplo: real.
StrMoedas : String usada para definir o nome da moeda no plural. Exemplo: reais.
StrCentavo : String usada para definir o nome dos decimais da moeda no singular. Exemplo: centavo.
StrCentavos : String usada para definir o nome dos decimais da moeda no plural. Exemplo: centavos.
Valor : Currency usada para atribuir o número que desejas a representação por extenso.
Texto : é a propriedade que retorna automaticamente o número informado por extenso.
Exemplo
1 2 3 4 5 6 7 8 | procedure Button1Click(Sender : TObject); begin // atribuindo o valor ACBrExtenso1.Valor := 1490.70; // exibindo o número informado por extenso ShowMessage(ACBrExtenso1.Texto); end; |
No exemplo acima, com a configuração padrão, a mensagem exibirá Hum Mil e Quatrocentos e Noventa Reais e Setenta Centavos.
OBS: Caso não queira os textos financeiros, deixe em branco as propriedades StrMoeda, StrMoedas, StrCentavo, StrCentavos.
Espero que ajude a todos!
Dúvidas ou sugestões? Deixe o seu comentário!
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
