Numeros a letras
 

Hola amigos, necesito de su ayuda. Lo que pretendo es convertir una cantidad numerica a su representación textual. Por ejemplo, $ 5320.55 a CINCO MIL TRECIENTOS VEINTE CON CINCUANTA Y CINCO PESOS CON CINCUENTA Y CINCO CENTAVOS. He buscado a traves de los foros y al parecer en los componentes de clubdelphi hay una herramienta para hacer esto, pero no puedo encontrarlo, descargue una carpeta que se llama CCD pero que trae un archivo con los pasos para instalarlos componentes, sin embargo no puedo hacerlo. Estoy utilizando delphi 7, creen que ese sea el problema ???

Descargué de otra parte un componente llamado Atexto, pero no se como instalarlo o como utilizarlo. Espero me puedan ayudar.

Hola
Aqui lo tienes.
Saludos

http://www.clubdelphi.com/foros/show...5&postcount=15

http://www.clubdelphi.com/trucos/ind...ll=0&scrollb=0

Gracias a los dos por su atencion. Caral, como puedo instalar el componente Atexto?, de hecho este es el problema en si.

tengo un TEdit donde tengo la cantidad numerica que quiero convertir a letras, pero no se como utilizar el componente.

podrian ayudarme?

Hola
Instala el componente como cualquier otro.
pones en el uses:

Código Delphi [-]
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ATexto, StdCtrls;

Haces una funcion:

Código Delphi [-]
function Deletrear(numero: real) : string; var
  letras: TLetras;
begin
  letras := TLetras.Create(nil);
  try
    letras.Numero := numero;
    Result := letras.AsString;
  finally
    letras.Free;
  end;
end;

Pones un boton y dos edit:
en el evento onclick del boton:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 n: String;
begin
  n:= Deletrear(StrToFloat(Edit1.Text) );
  Edit2.Text:= (n);
end;

Creo que esta claro, si no lo comentas.
Si te sirve dale las gracias a Dec, el fue el que me paso este codigo en su momento.:D
Saludos

siempre me da error sobre el begin. lo tengo asi como esta:

aqui cuando lo llamo esta bien:

procedure TFrmCrearCheques.SpeedButton2Click(Sender: TObject);
var
n: String;
begin
n:= Deletrear(StrToFloat(Edit5.Text) );
Edit7.Text:= (n);
end;

la funcion debe de ir dentro de la implementacion.

dentro del texto a convertir solo debe de haber numero por ejemplo 12,999.00 ya que tengo error a colocarle L. 12,999.00 o solamente toma valores enteros.

como puedo hacerlo que me lea los punto flotantes tambien.