Componente Atexto

[vientos]

Hola me gustaria saber si alguien de ustedes tendra disponible el componente Atexto para convertir cantidades con numeros a cantidades con letra lo quise descargar de componentes pero al parecer por el momento no esta disponible la seccion , si alguien me pudiera decir de donde descargarlo se lo agradeceria mucho

Saludos y Gracias de Antemano!!!!:)

[Sotrono]

lo quise descargar de componentes pero al parecer por el momento no esta disponible la seccion
Efectivamente aun no esta disponible la seccion, pero Google (http://www.google.com.ar) sí esta disponible.
Aca (http://delphi.garcia-cuervo.com/Recursos.htm) encontre un link.

Bytes...

[vientos]

Efectivamente aun no esta disponible la seccion, pero Google (http://www.google.com.ar) sí esta disponible.
Aca (http://delphi.garcia-cuervo.com/Recursos.htm) encontre un link.

Bytes...

Muchas gracias Sotrono!!, ya lo descargue, yo lo estuve buscando pero no lo encontre:confused:

[alexander_lv]

aqui le adjunto el componente es la version 2.0

[dec]

Hola,

Muchas gracias. Por cierto que el componente en cuestión estaba ya en el Directorio del ClubDelphi (http://www.terawiki.clubdelphi.com/Delphi-Win32/Componentes/). ;)

[ornellatallante]

Muy buenoooo!!! Muchas gracias a los que lo crearon y a los que lo comentaron. Ayuda mucho a la interfaz de muchos programas. Hace como un año que estoy con delphi y he resuelto muchas dudas aquí. Es un foro exelente. Saludos:cool:

[mahp]

SALUDOS...

Quiero convertir un número a texto, baje el componente ATexto para utilizarlo en una aplicacion, pero me marca un AccesViolation y no se a que se deba, me podran ayudar.
esto es lo que estoy haciendo:

procedure TFQRRecibo.QRDBText1Print(sender: TObject;
var Value: String);
Var
T : TLetras;
begin
T.Numero := Query1.FieldByName('Importe').AsFloat;
QRLabel3.Caption := T.AsString;
end;

[maeyanes]

Hola...

Tu error es por que nunca creas el objeto TLetras:


begin
T := TLetras.Create(nil);
try
T.Numero := Query1.FieldByName('Importe').AsFloat;
QRLabel3.Caption := T.AsString
finally
T.Free
end
end;



Saludos...

[mahp]

Hola maeyanes...

muchas gracias por tu respueta, te agradezco la atención de haber respondido....