imprimir valor numerico en letras

[Jheysson13]

saludos para el foro
quiesiera saber si es posoble con el QR de delphi 7 se puede generar una factura ella que se muestre el monto en letras es decir, de la manera siguiente:

total a pagar:$556
el total a pagar es de quinientos cincuenta y seis pesos.

espero ser claro.
gracias de antemano.

[dec]

Hola,

Descarga desde aquí mismo el componente ATexto (www.dec.clubdelphi.com/delphi/atexto.zip) de Savierhs López Arteaga y Antoni Aloy López. Creo que te servirá.

[Jheysson13]

gracias por el componente y la ayuda. y perdona mi ignorancia pero...

¿como se usa?:confused::o
es que como es un componente nuevo no tengo ni idea de su uso
gracias. saludos

[dec]

Hola,

El componente tiene cierta miga, empero, este podría ser un uso básico del mismo:


uses
Atexto; // Contiene TLetras

// Convierte un número a "letras" usando TLetras
function Deletrear(numero: extended) : string;
var
atexto: TLetras; // Declaramos
begin
// Instanciamos
atexto := TLetras.Create(nil);
try
// Asignamos
atexto.Numero := numero;
// Establecemos el resultado
Result := atexto.AsString;
finally
// Liberamos
atexto.Free;
end;
end;

// Ejemplo de uso de la función NumeroALetras
begin
// Mostrará: mil doscientos treinta y cuatro
ShowMessage( Deletrear(1234) );
end;

[Jheysson13]

gracias por la explicacion me sirvio de mucho y me funcione correctamente
salud2 y gracias nuevamente:D