![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#8
|
|||
|
|||
Números a letras
hola que tal a todos, tengo un problemilla, uso este codigo:
function Deletrear(numero: real) : string; var letras: TLetras; begin letras := TLetras.Create(nil); try letras.Numero := Trunc(numero); Result := Format('%s CON %d/100 .-', [Letras.AsString, Trunc(100*Frac(Numero))]); *no se si el error me de por esta seccion?! finally letras.Free; end; end; var n:string; begin Ventas.qrlabel38.Caption:=FOrmatfloat('#,##0.00',strtofloat(value)); n:= Deletrear(StrToFloat(Value)); form17.QRLabel39.Caption:=uppercase('( '+n+')'); value:=Ventas.QRLabel38.Caption; end; me funciona bien, pero solo para numeros hasta el 999.99, cuando pasa a 1000 me pone el siguiente error: "raised exception Class EConverter error with message "1000.23" is not a valid floating point value.... ya modifique en el on print, en el before print, y nada...alguna recomendacion?!! |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Convertir números en letras | c748a | Varios | 14 | 10-04-2015 20:52:18 |
Numeros a letras | citlalliDgp | Varios | 6 | 19-03-2009 07:14:54 |
Numeros y letras | Caral | Varios | 11 | 28-03-2008 18:22:53 |
Numeros En Letras | Cañones | Impresión | 2 | 11-06-2007 23:55:12 |
Numeros a Letras!! | jmedina | Varios | 26 | 20-10-2005 20:19:42 |
![]() |
|