Como gerar números por extenso com ACBr

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!