Foros Club Delphi - como comvertin numeros a letras

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - como comvertin numeros a letras (https://www.clubdelphi.com/foros/showthread.php?t=38476)

como convertir numeros a letras

hola como estan, tengo un gran problema quisiera saber como convertir numeros a letras en delphin o en builder(algoritmo), quisiera que me puedan ayudar como en otras veces que me han ayudado.:eek:

Nota de edición: Lo edite para arreglar el titulo pues su ortografia no estaba muy bien.

Hola pollo_c
El componente que esta aqui:
http://rapidshare.com/files/7605607/Atexto.zip.html
Me lo envio Dec. y hace eso, convierte los numeros en letras.
Saludos

como garego componentes

muchas gracias caral pero ese componente para que lenguaje es para builder o para delphi o sirve para ambos?, aparte no se como agregar componentes?, si me pudieras ayudar con mis interrogantes te lo agradecere siempre.

Una simpe busqueda en los foros o una revisión de los "Hilos similares" que aparecen al final de la página te dará las respuestas que necesitas.

Otra cosa, revisa la Guía de estilo de los foros, nunca está de más...

Un saludo.

EDITO: Me dormí con el mensaje abierto y llegué tarde, muy tarde...

Hola pollo_c
El componente yo lo uso en delphi, no se si servira para JBuilder.
Tengo la version de Delphi 6, no se si los componentes se instalan igual en todas las versiones, upongo que si.
Paso a paso.
Baja el archivo con los componentes, descompresiona el zip.
Ve a archivos de programa, Borland, Delphi (La version que tengas), lib.
En esta ultima carpeta, pones los componentes, sea pegas los archivos.
Abre Delphi, Arriba en componenten, Install component.
Te saldra una pantalla, Install Component, en Brouser, lo buscas y le das OK.
Esto te lo instalara, en la barra de herramientas, Buscalo y lo usas como cualquier otro componente.
Espero te quede Claro
Saludos

Como complemento a lo dicho por Caral, puedes mirar estos hilos: 1 y 2

mi programa esta echo en builder

tengo un problemon mi programa esta echo en builder y ya casi estoy en la etapa final, quisiera saber si este(Aletras) me puede ayudar en buider 5 o tengo que buscar otro componente para builder.(ayuda es para mi residencia profesional):eek:

Hola pollo_c
No se si sirva, es mas nunca he usado, builder, me es dificil responder eso.
Ahora, he visto muchas veces en el foro, que builder tiene una interface parecida a Delphi, (si es asi), pues trata de instalar el componente, lo mas que puede pasar es que te lo rechace y no funcione.
Otra cosa que puedes hacer es, abrir el componente y ver como trabaja por dentro, esto en el pas. asi podrias hacer la misma operacion sin necesidad del componente.
Pregunta de curiosidad:
En que año de estudios estas ?
Saludos

Cita:

Empezado por pollo_c

Pues no se si te sirva para JBuilder ese componente, lo desconozco, pero aqui te dejo un link donde puedes bajar un código fuente que no se si sea para JBuilder, tendrás que registrarte como usuario para poder bajarlo.

Si no es para JBuilder pues tu tarea sería convertirlo, bueno, no todo en la vida es fácil.:rolleyes:

Saludos y espero que logres terminarlo y obtener tu residencia profesional.

Como convetir numeros a letras

Hola que tal yo tengo un algoritmo en builder c++ que tal ves te pueda servir, este codigo yo lo utilice para inprimir en la cantidad de una factura en letras, esta sencillo ojala y te sirva, tambien lo tengo para delphi si lo necesitas; a esta funcion solo tienes que enviarle el los parametros de TotInv que es el numero a convertir a letras y la Moneda que es la teminacio de dolares USD o pesos MN:

Código:

TotInv = 1350.50

Moneda = -1



AnsiString Leyenda(AnsiString TotInv,AnsiString Moneda)

{

 String Unidades[29];

 String Decenas[7];

 String Centenas[9];

 float Decimal;

 int Importe,X;

 bool Cien,Miles,De;

 AnsiString ImptoStr,retleyenda;

 retleyenda = "";

 Unidades[0] = "UN";

 Unidades[1] = "DOS";

 Unidades[2] = "TRES";

 Unidades[3] = "CUATRO";

 Unidades[4] = "CINCO";

 Unidades[5] = "SEIS";

 Unidades[6] = "SIETE";

 Unidades[7] = "OCHO";

 Unidades[8] = "NUEVE";

 Unidades[9] = "DIEZ";

 Unidades[10] = "ONCE";

 Unidades[11] = "DOCE";

 Unidades[12] = "TRECE";

 Unidades[13] = "CATORCE";

 Unidades[14] = "QUINCE";

 Unidades[15] = "DIECISEIS";

 Unidades[16] = "DIECISIETE";

 Unidades[17] = "DIECIOCHO";

 Unidades[18] = "DIECINUEVE";

 Unidades[19] = "VEINTE";

 Unidades[20] = "VEINTIUN";

 Unidades[21] = "VEINTIDOS";

 Unidades[22] = "VEINTITRES";

 Unidades[23] = "VEINTICUATRO";

 Unidades[24] = "VEINTICINCO";

 Unidades[25] = "VEINTISEIS";

 Unidades[26] = "VEINTISIETE";

 Unidades[27] = "VEINTIOCHO";

 Unidades[28] = "VEINTINUEVE";

 Decenas[0] = "TREINTA";

 Decenas[1] = "CUARENTA";

 Decenas[2] = "CINCUENTA";

 Decenas[3] = "SESENTA";

 Decenas[4] = "SETENTA";

 Decenas[5] = "OCHENTA";

 Decenas[6] = "NOVENTA";

 Centenas[0] = "CIEN";

 Centenas[1] = "DOSCIENTOS";

 Centenas[2] = "TRESCIENTOS";

 Centenas[3] = "CUATROCIENTOS";

 Centenas[4] = "QUINIENTOS";

 Centenas[5] = "SEISCIENTOS";

 Centenas[6] = "SETECIENTOS";

 Centenas[7] = "OCHOCIENTOS";

 Centenas[8] = "NOVECIENTOS";

 Importe = StrToFloat(TotInv);

 Decimal =  FormatFloat("#,##0.00",StrToFloat(TotInv)) - Importe;

 ImptoStr = "(";

 Cien = false;

 Miles = false;

 De = false;



 if(Importe >= 1000000)

 {

  X = Importe/1000000;

  De = true;

  Importe = Importe % 1000000;

  if (X != 1)

        ImptoStr = ImptoStr + " " + Unidades[X-1] + " MILLONES ";

  else

        ImptoStr = ImptoStr + "UN MILLON";

 }

 if (Importe != 0 )

    De = false;

 if (Importe >= 100000)

    {

      X = Importe/100000;

      Importe = Importe % 100000;

      ImptoStr = ImptoStr + " " + Centenas[X-1];

      Miles = true;

      if(X == 1)

        Cien = True;

    }

 if(Importe >= 30000)

    {

      Miles = True;

      X = Importe / 10000;

      Importe = Importe % 10000;

      if(Cien)

      {

        ImptoStr = ImptoStr + "TO";

        Cien = False;

      }

      ImptoStr = ImptoStr + " " + Decenas[X-3];

      if ( (Importe < 10000) & (Importe >= 1000))

        ImptoStr = ImptoStr + " Y";

    }

 if((Importe >= 1000) & (Importe < 30000))

    {

      Miles = True;

      X = Importe / 1000;

      Importe = Importe % 1000;

      if(Cien)

      {

        ImptoStr = ImptoStr + "TO";

        Cien = False;

      }

      ImptoStr = ImptoStr + " " + Unidades[X-1];

    }

    if(Miles)

    {

      ImptoStr = ImptoStr + " MIL";

      Cien = False;

    }

    if(Importe >= 100)

    {

      X = Importe / 100;

      Importe = Importe % 100;

      ImptoStr = ImptoStr + " " + Centenas[X-1];

      if(X == 1)

        Cien = True;

    }

    if(Importe >= 30)

    {

      X = Importe / 10;

      Importe = Importe % 10;

      if(Cien)

      {

        ImptoStr = ImptoStr + "TO";

        Cien = False;

      }

      ImptoStr = ImptoStr + " " + Decenas[X-3];

      if(Importe != 0)

        ImptoStr = ImptoStr + " Y";

    }

    if(Importe >= 1)

    {

      if(Cien)

        ImptoStr = ImptoStr + "TO";

      ImptoStr = ImptoStr + " " + Unidades[Importe-1];

    }

    if(Moneda == -1)

      if(De)

        retleyenda = ImptoStr + " DE PESOS " + FormatFloat("00",Decimal * 100) + "/100 M.N.)";

      else

        retleyenda = ImptoStr + " PESOS " + FormatFloat("00",Decimal * 100) + "/100 M.N.)";

    else

      retleyenda = ImptoStr + " DOLARES " + FormatFloat("00",Decimal * 100)+ "/100 USD)";





 return retleyenda;

}

hola amigos, si pude terminar mi programa, disculpen por no agradecerles a tiempo, pero quiero agradecer al club y a todos los que me ayudaron,
muchas gracias a:

caral
neftali
egostar
gus_ggo

sin mas por el momento garcias

Para convertirlo a mayúscula

Si queremos pasar directamente las palabras generadas a mayúsculas utilizando Atexto y pegarlo en un Edit o Memo hacemos:

Código Delphi [-] Memo1.Clear;
 Letras1.Numero := StrToFloat(FormatFloat('####',StrToFloat(Label1.Caption)));
Memo1.Text := UpperCase(Letras1.AsString)

Lo que hace FormatFloat('####',StrToFloat(Label1.Caption)) es convertir un flotante a entero. Me explico:
El número 2345,56 es equivalente a 2346 en entero, por lo tanto la cifra que va a convertir a palabras no será 2345,56 sino 2346. Saludos :rolleyes:

Numero en Expresion de Palabras

Para Delphi

Código:

Function Expresion(XNumero: Variant): String;

const

  Unidades: array[1..9] of String = ('Un ','Dos ','Tres ','Cuatro ','Cinco ','Seis ','Siete ','Ocho ','Nueve ');

  Decimos: array[0..9] of String = ('Diez ','Once ','Doce ','Trece ','Catorce ','Quince ','Dieciseis ','Diecisiete ','Dieciocho ','Diecinueve ');

  Decenas: array[1..9] of String = ('Diez ','Veinte ','Treinta ','Cuarenta ','Cincuenta ','Sesenta ','Setenta ','Ochenta ','Noventa ');

  Centenas: array[1..9] of String = ('Cien ','Doscientos ','Trescientos ','Cuatrocientos ','Quinientos ','Seiscientos ','Setecientos ','Ochocientos ','Novecientos ');

var

  cNumero: String;

  nInd, nDigito, nPos: Integer;

  LDec: Boolean;

begin

  Result := '';

  if XNumero <> Null then

    begin

      cNumero := IntToStr(XNumero);

      LDec := True;

      for nInd := 1 to Length(CNumero) do

        begin

          nDigito := StrToInt(cNumero[nInd]);

          nPos := Length(CNumero) + 1 - nInd;

          if nDigito <> 0 then

            begin

              if nPos in [3,6,9,12] then

                if nDigito = 1 then

                  if (StrToInt(cNumero[nInd+1]) = 0) and (StrToInt(cNumero[nInd+2]) = 0) then

                    Result := Result + Centenas[nDigito]

                  else

                    Result := Result + 'Ciento '

                else

                  Result := Result + Centenas[nDigito]

              else

                if nPos in [2,5,8,11] then

                  begin

                    Ldec := True;

                    if nDigito = 1 then

                      begin

                        Result := Result + Decimos[StrToInt(cNumero[nInd+1])];

                        LDec := False;

                      end

                    else

                      if nDigito = 2 then

                        if (StrToInt(cNumero[nInd+1]) = 0) then

                          Result := Result + Decenas[nDigito]

                        else

                          Result := Result + 'Veinte y '

                      else

                        Result := Result + Decenas[nDigito];

                    if not(nDigito in [0,1,2]) and (StrToInt(cNumero[nInd+1]) <> 0) then

                      Result := Result + 'y ';

                  end

                else

                  if (nPos in [1,4,7,10]) and LDec then

                    if (nDigito <> 1) then

                      Result := Result + Unidades[nDigito]

                    else

                      if nPos in [1,7] then

                        Result := Result + Unidades[nDigito];

            end;

          if nPos = 4 then

            if not((StrToInt(cNumero[nInd]) = 0) and (StrToInt(cNumero[nInd-1]) = 0) and (StrToInt(cNumero[nInd-2]) = 0)) then

              Result := Result + 'Mil ';

          if nPos = 7 then

            if (nDigito = 1) and (Length(CNumero) = 7) then

              Result := Result + 'Millon '

            else

              Result := Result + 'Millones ';

          if nPos = 10 then

            Result := Result + 'Mil ';

        end;

    end;

end;