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 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?
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:

Código Delphi [-]
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