Convertir números en letras

[c748a]

Hola:

Hay alguna función para pasar números a letras o hay que hacerlo a pulmón?
Ejemplo: 15,50 ==> Quince con 50/100.
Gracias

[cadetill]

Esto ya se ha tratado alguna vez

Buscando en los foros he encontrado este hilo

Espero te sirva

[Nuria]

Hola !

Mira el componente ATexto 2.0, del menú componentes de esta página, por si te sirve. Puede ser lo que buscas.

Saludos!

[c748a]

Muy bien, gracias. Ya me estoy bajando el componente.

[atirado]

Hola a tod@s!
Alguien sabe por qué al intentar instalar el componente como un paquete nuevo, me marca un error de que la unidad ATexto se usa recursivamente llamándose a sí misma??
Estoy intentando instalarlo de la siguiente manera:

1. Component -> Install new component -> Into new package.
2. En Unit file name pongo el nombre de ATexto.pas con toda la ruta donde lo tengo.
3. En Package file name tengo la misma ruta pero con un archivo llamado ATexto.dpk para que, según yo, lo cree y lo instale dentro.

Muchas gracias por su tiempo y dedicación

Alejandro
desde MX

[atirado]

Olvidé mencionar que estoy utilizando Delphi 7, por lo que se ofrezca, jeje


salu2

[roman]

Empezado por atirado

me marca un error de que la unidad ATexto se usa recursivamente llamándose a sí misma

Simplemente usa otro nombre para el paquete dpk.

// Saludos

[atirado]

Gracias por la rapidez de tu respuesta, Román! En efecto, sólo agregué una "s" al final del nombre del paquete y funcionó, jejeje

Ahora... la pregunta del millón... alguno de ustedes sabe si hay algún tutorial para utilizar este componente? sinceramente no puedo hacerlo funcionar, pues no me reconoce las funciones, sólo las propiedades.

Gracias de nuevo por la ayuda! salu2

Alejandro, MX

[Dayvis]

Bueno no se si habra algun manual para este componente pero para mi funciono asi:

ATexto.Numero := StrToInt(Edit1.Text); o el valor que vas a convertir que puede ser flotante
Edit2.Text := Atexto.String; // Aqui me devuelve el valor convertido en letras