COMPONENTES VALOR POR EXTENSO NO DELPHI

[Martins Delphi Page] Autor : Milton Terre Data : 02/01/01Número de leituras : 49Todas as informações são importantes para tentar manter sempre os melhores artigos e dicas, ajudem votando ou mandando comentários. Top of Form 1Ótimo Bom Fraco Bottom of Form 1 Libraries - A-I - Extenso { Unidade com funcao para converter numeros (double) em seu corres- pondente extenso. Para utilizá-la,chame a funcao Extenso com o numero a ser convertido como parametro, e o resultado será uma string com o valor correspondente por extenso. Serão analisados 12 digitos antes do ponto decimal e duas casas decimais. O nome da moeda usada pode ser facilmente alterada,bastando alte- rar o valor das constantes MoedaSingular,MoedaPlural,CentSingular e CentPlural. Esta unidade pode ser livremente usada, aterada e distribuída desde que sejam mantidos os dados do autor original: Milton Terre PRIORI Informática Ltda. [e-mail] } unit Extensos; interface Function Extenso(Valor: double):string; implementation uses SysUtils; const Centenas:array[1..9] of string[12]=('CEM','DUZENTOS','TREZENTOS', 'QUATROCENTOS','QUINHENTOS','SEISCENTOS', 'SETECENTOS','OITOCENTOS','NOVECENTOS'); Dezenas :array[2..9] of string[10]=('VINTE','TRINTA','QUARENTA', 'CINQUENTA','SESSENTA','SETENTA','OITENTA', 'NOVENTA'); Dez :array[0..9] of string[10]=('DEZ','ONZE','DOZE','TREZE', 'QUATORZE','QUINZE','DEZESSEIS','DEZESSETE', 'DEZOITO','DEZENOVE'); Unidades: array[1..9] of string[10]=('UM','DOIS','TRES','QUATRO', 'CINCO','SEIS','SETE','OITO','NOVE'); MoedaSingular = 'REAL'; MoedaPlural = 'REAIS'; CentSingular = 'CENTAVO'; CentPlural = 'CENTAVOS'; Zero = 'ZERO'; Function Ext3(Parte:string):string; var Base: string; digito: integer; begin Base:='';