Como representar os numeros em extenso
06/07/2004
0
queria fazer o seguinte: ao digitar um numero qualquer no edit, por exemplo, 485, após clicar num botão (ou em qualquer outro evento), aparece num memo o número escrito por extenso, no caso, apareceria ´quatrocentos e oitenta e cinco´.
Alguém possui alguma boa solução para fazer isso?
obrigado!
Tiagoharris
Posts
06/07/2004
Demian Soares
06/07/2004
Marcelo Saviski
06/07/2004
Lucas Silva
Você tem que ir varrendo cada algarismo do número e substituindo por estes valores.
Unidades: array[1..9] of string = (´UM´, ´DOIS´, ´TRES´, ´QUATRO´, ´CINCO´, ´SEIS´, ´SETE´, ´OITO´, ´NOVE´); Dez: array[1..9] of string = (´ONZE´, ´DOZE´, ´TREZE´, ´QUATORZE´, ´QUINZE´, ´DEZESSEIS´, ´DEZESSETE´, ´DEZOITO´, ´DEZENOVE´); Dezenas: array[1..9] of string = (´DEZ´, ´VINTE´, ´TRINTA´, ´QUARENTA´, ´CINQUENTA´, ´SESSENTA´, ´SETENTA´, ´OITENTA´, ´NOVENTA´); Centenas: array[1..9] of string = (´CENTO´, ´DUZENTOS´, ´TREZENTOS´, ´QUATROCENTOS´, ´QUINHENTOS´, ´SEISCENTOS´, ´SETECENTOS´, ´OITOCENTOS´, ´NOVECENTOS´);
Na internet, vc deve achar isso fácil...
T+,
Lucas!
06/07/2004
Tiagoharris
você chegou a testar essa função? Uma pessoa disse lah no tópico que a função não funciona corretamente...
ainda não tive tempo para testar...
pessoal, se alguém realmente possuir esta função já pronta, por favor, envie para o meu e-mail:
tiagoharris@globo.com
Muito grato!
07/07/2004
Lucas Silva
Estarei te mandando!
07/07/2004
Cirilo
componente free com fontes para extenso de valores
(compilado no Delphi 6)
www.veloso.kit.net
Clique aqui para fazer login e interagir na Comunidade :)