Numeros a letras

[citlalliDgp]

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.

[Caral]

Hola
Aqui (http://www.clubdelphi.com/foros/attachment.php?attachmentid=1115&d=1198940600) lo tienes.
Saludos

[ContraVeneno]

http://www.clubdelphi.com/foros/showpost.php?p=214435&postcount=15

http://www.clubdelphi.com/trucos/index.php?id=208&scroll=0&scrollb=0

[citlalliDgp]

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?

[Caral]

Hola
Instala el componente como cualquier otro.
pones en el uses:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ATexto, StdCtrls;

Haces una funcion:

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:

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

[DasGrun]

siempre me da error sobre el begin. lo tengo asi como esta:
private
{ Private declarations }
public

DBEdit7: TDBEdit;
procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
{ Public declarations }

end;

var
FrmCrearCheques: TFrmCrearCheques;

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;


aqui cuando lo llamo esta bien:

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

[DasGrun]

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.