Sobre el componente ATexto 2.0

[marcoszorrilla]

El código recuerdo haberlo modificado con la entrada del Euro, finalmente lo he encontrado:

Código Delphi [-]
function IntToLetras(Numerosouble):String;

        function xIntToLetras(Valor:LongInt):String;
        const
         aUnidad : array[1..15] of String =
           ('UN','DOS','TRES','CUATRO','CINCO','SEIS',
            'SIETE','OCHO','NUEVE','DIEZ','ONCE','DOCE',
            'TRECE','CATORCE','QUINCE');
         aCentena: array[1..9]  of String =
           ('CIENTO','DOSCIENTOS','TRESCIENTOS',
            'CUATROCIENTOS','QUINIENTOS','SEISCIENTOS',
            'SETECIENTOS','OCHOCIENTOS','NOVECIENTOS');
         aDecena : array[1..9]  of String =
          ('DIECI','VEINTI','TREINTA','CUARENTA','CINCUENTA',
           'SESENTA','SETENTA','OCHENTA','NOVENTA');
        var
         Centena, Decena, Unidad, Doble: LongInt;
         Linea: String;
        begin
         if valor=100 then Linea:=' CIEN '
         else begin
           Linea:='';
           Centena := Valor div 100;
           Doble   := Valor - (Centena*100);
           Decena  := (Valor div 10) - (Centena*10);
           Unidad  := Valor - (Decena*10) - (Centena*100);

           if Centena>0 then Linea := Linea + Acentena[centena]+' ';

           if Doble>0 then begin
             if Doble=20 then Linea := Linea +' VEINTE '
               else begin
                if doble<16 then Linea := Linea + aUnidad[Doble]
                  else begin
                       Linea := Linea +' '+ Adecena[Decena];
                       if (Decena>2) and (Unidad<>0) then Linea := Linea+' Y ';
                       if Unidad>0 then Linea := Linea + aUnidad[Unidad];
                  end;
               end;
           end;
         end;
         Result := Linea;
        end;

      var
         Millones,Miles,Unidades,numero: Longint;
         Linea : String;
         entero,decimal:variant;
         n1,n2: Double;

      begin
      entero:=Int(numeros);
      decimal:=Abs(frac(numeros) * 100);
      numero:=entero;
        {Inicializamos el string que contendrá las letras según el valor
        numérico}
        if numero=0 then
        Linea := 'CERO'
        else if numero<0 then Linea := 'MENOS '
             else if numero=1 then
                  begin
                    Linea := 'UN';
                    //exit
                  end
                  else if numero>1 then Linea := '';

        {Determinamos el Nº de millones, miles y unidades de numero en
        positivo}
        Numero   := Abs(Numero);
        Millones := numero div 1000000;
        Miles     := (numero - (Millones*1000000)) div 1000;
        Unidades  := numero - ((Millones*1000000)+(Miles*1000));

        {Vamos poniendo en el string las cadenas de los números(llamando
        a subfuncion)}
        if Millones=1 then Linea:= Linea + ' UN MILLON '
        else if Millones>1 then Linea := Linea + xIntToLetras(Millones)
                                         + ' MILLONES ';

        if Miles =1 then Linea:= Linea + ' MIL '
        else if Miles>1 then Linea := Linea + xIntToLetras(Miles)+
                                      ' MIL ';

        if Unidades >0 then
        Linea := Linea + xIntToLetras(Unidades);

         //Nuevo para decimales
          numero:=decimal;
          Linea:=Linea +' Euros';

      if numero > 0 then
      begin
      Linea:=Linea +' y ';

         if numero=1 then
                  begin
                    Linea :=Linea + 'UN';
                  end
                  else if numero>1 then Linea := Linea+'';

        {Determinamos el Nº de millones, miles y unidades de numero en
        positivo}
        Numero   := Abs(Numero);
        Millones := numero div 1000000;
        Miles     := (numero - (Millones*1000000)) div 1000;
        Unidades  := numero - ((Millones*1000000)+(Miles*1000));

        {Vamos poniendo en el string las cadenas de los números(llamando
        a subfuncion)}
        if Millones=1 then Linea:= Linea + ' UN MILLON '
        else if Millones>1 then Linea := Linea + xIntToLetras(Millones)
                                         + ' MILLONES ';

        if Miles =1 then Linea:= Linea + ' MIL '
        else if Miles>1 then Linea := Linea + xIntToLetras(Miles)+
                                      ' MIL ';

        if Unidades >0 then
        Linea := Linea + xIntToLetras(Unidades);

        linea:=Linea+' cents';
     end;

        IntToletras:=Linea;
end;

Un Saludo.

[[Caral]]

Hola
Este hilo es muy viejo, pero se reactivo por alguna razón.
No se si sera la versión 2, pero este es el que me pasaste Dec. en algún momento.
Saludos

[dec]

Hola,

Sí; creo que es el mismo que se encuentra en el TeraWiki.

[jirbert]

marcoszorrilla gracias!!! con respecto al cod. el primero me funciono de perfectamente,, pero el segundo que generastes para los decimales no me funciona en la parte de las variables cuando se cren,
var
Millones,Miles,Unidades,n: LongInt;
Linea : String;
entero,decimal:variant;
n1,n2ouble; --> esta variable me dice: undeclared identifier: 'ouble'

te agradeceria la ayuda!!!

saludos!!!
gracias!!!

[dec]

Hola,

Pareciera que es una errata, y, que, donde dice:

Código Delphi [-]
n1,n2ouble;

Debe decir:

Código Delphi [-]
n1,n2: double;

[marcoszorrilla]

Ya lo he arreglado, pero no era ni error ni errata, ya me ha pasado otra vez, es el "parser", que se ve no le gusta la combinación esa:

Código Delphi [-]
      var
         Millones,Miles,Unidades,numero: Longint;
         Linea : String;
         entero,decimal:variant;
         n1,n2ouble;

Código Delphi [-]
      var
         Millones,Miles,Unidades,numero: Longint;
         Linea : String;
         entero,decimal:variant;
         n1,n2: Double;

La primera y la segunda son exactamente iguales, pero en la primera no hay un espacio entre los dos puntos y Double.

Un Saludo.

[ixMike]

Llego tarde, pero en trucomanía hay una función que hace exactamente lo mismo (no sé si con decimales funciona).

Salu2.

[jirbert]

gracias a todos.. bueno ya modifique la variable como em dijeron!!! y la verifico perfectamente pero en la parte de

xIntToLetras:=Linea;

me dice lo siguiente:

not enough actual parameters

de verdad gracias a todos y disculpen la molestia...

[jirbert]

bueno otra cosa quisiera saber si se puede complementar una laber en otro es decir, por lo menos cuando da el resultado traducido a letras!!! tener un limite y continuar en la linea de abajo:

1.254.525,58
un millon docientos cincuenta y cuatro mil quinientos veinticinco con cincuenta y ocho centimos...

a

1.254.525,58
un millon docientos cincuenta y cuatro mil quinientos veinticinco
con cincuenta y ocho centimos...