Numeros a Letras!!

[jmedina]

Empezado por roman

En la propiedad Numero pones la cantidad que desees, por ejemplo:

Letras1.Numero := 1425.3;

Para obtener el número escrito en letras usas la propiedad AsString:

Edit1.Text := Letras1.AsString;

Con lo que obtendrás:

"mil cuatrocientos veinticinco con treinta"

Las propiedades Moneda y Centavos te sirven para indicar cómo quieres nombrar las unidades y los decimales. Por ejemplo, si pones

Letras1.Monedas := 'euros';
Letras1.Monedas.Centavos := 'centavos';

la propiedad AsString te dará:

"mil cuatrocientos veinticinco euros con treinta centavos"

La propiedad Masculino es para indicar su quieres que el texto esté en género masculino o femenino. Así, si pones

Letras1.Moneda := 'mujeres';
Letras1.Centavos := 'niñas';
Letras1.Numero := 3.04;
Letras1.Masculino := false;

La propiedad AsString te dará:

"tres mujeres con cuatro niñas"

Finalmente, la propiedad Separador me parece que es para indicar el separador decimal (punto, coma o el que uses).

// Saludos

Ok en este caso si le entiendo, pero por ejemplo esto lo puedo aplicar en el evento onclick de algun boton que yo inerte, o algo parecido, es decir no se si me puedan decir como es que ejecuto este codigo, por ejemplo se me ocurre que cuando salga de una caja de texto, en la cual contiene la cantidad a convertir ahi puedo hacer la conversion, o bien como la realizaria

Saludos
Y disculpen la lata es que soy un poco novato en esto
Jmedina

[[Lepe]]

Si no sabes cuando lo necesitas, entonces es que NO lo necesitas

que tal en el evento OnExit de la cajita que tiene el número?
que tal en el OnKey Pressed ?

Saludos

[lionsoft]

In en el form de impresion (QReport)... como lo uso??
Saludos!
Lion

[[Lepe]]

Usa el evento BeforePrint del campo que quieres modificar.

[lionsoft]

Intenté usar el componente ATexto en el reporte (QReport).

En el evento BeforePrint, intenté tomar la expresion que tengo como resultado de una suma y poner dicho valor en letras, en un label de reporte.

Pero no se puede. No se como levantar el resultado que arroja la expresion. Si utilizo la propiedad .value o .caption me da la expresion de sum (SUM bla bla bla).

Alguien me puede decir como imprimo esto?

Muchas gracias!

Lion

PD: como se instala el componente ATexto en Delphi 6 ?

[Pablo Carlos]

Empezado por lionsoft

Alguien me puede decir como imprimo esto?

Mira este código.....

Código Delphi [-]
procedure TfrmImprimirRecibo.FormCreate(Sender: TObject);
begin
{ ImporteRecibo es el nombre del componente aTexto
Numero propiedad de aTexto 
qRboProfesor es un query cuyo field rp_Importe es un campo de una tabla
Importe.Caption es qrLabel := importe recibido es el valor del campo pasado a texto--- espero que sea claro, fijate el evento que uso 
}
  ImporteRecibo.Numero := dmQuerys.qRboProfesor.FieldByName('RP_Importe').Value;
  Importe.Caption := ImporteRecibo.AsString;
end;

Saludos

[lionsoft]

Estoy bastante cerca de entender como usar el componente.

El drama surge, en que yo ya tengo una expresion que tiene la sumatoria de otras expresiones.
Lo que necesito es poder levantar ese valor numerico. Si uso la propiedad "caption", obtendré el texto SUM(...) que no es lo que busco.

Como puedo hacer para obtener el valor numerico qued muestra la expresion en pantalla, para asi poder cargarselo al componente ATexto?

Saludos y muchas gracias!!
Lion