![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Dudas al convertir numero en letra y centavos
Hola amigos tengo un dilema resulta que quiero pasar una cantidad numerica a letras por ejemplo $12.50 Doce con cincuenta centavos, ya pude hacer que me aparesca la cifra con letra pero ahora resulta que no veo la forma para que aparesca la palabra centavos cuando halla centavos en la cifra les anexo mi codigo que estoy usando.
Código:
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; procedure TAlta_factura.Button3Click(Sender: TObject); var n: String; begin n:= Deletrear(StrToFloat(Edit10.Text) ); label5.Caption:= (n); end; |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
45 Centavos | enecumene | Humor | 5 | 23-10-2008 17:51:23 |
Como convertir numero entero en letra | kurono | Varios | 2 | 23-01-2008 05:10:39 |
Convertir numero en cadena | rex | JAVA | 7 | 25-10-2007 03:28:11 |
Convertir Numero a Letras... en frances | jcarteagaf | Varios | 4 | 11-09-2007 19:23:45 |
De número a letra | samame | Varios | 1 | 10-03-2004 17:31:41 |
![]() |
|