FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
como convertir numeros a letras
hola como estan, tengo un gran problema quisiera saber como convertir numeros a letras en delphin o en builder(algoritmo), quisiera que me puedan ayudar como en otras veces que me han ayudado.
Nota de edición: Lo edite para arreglar el titulo pues su ortografia no estaba muy bien. Última edición por jhonny fecha: 30-04-2007 a las 22:24:28. |
#2
|
||||
|
||||
Hola pollo_c
El componente que esta aqui: http://rapidshare.com/files/7605607/Atexto.zip.html Me lo envio Dec. y hace eso, convierte los numeros en letras. Saludos |
#3
|
|||
|
|||
como garego componentes
muchas gracias caral pero ese componente para que lenguaje es para builder o para delphi o sirve para ambos?, aparte no se como agregar componentes?, si me pudieras ayudar con mis interrogantes te lo agradecere siempre.
|
#4
|
||||
|
||||
Hola pollo_c
El componente yo lo uso en delphi, no se si servira para JBuilder. Tengo la version de Delphi 6, no se si los componentes se instalan igual en todas las versiones, upongo que si. Paso a paso. Baja el archivo con los componentes, descompresiona el zip. Ve a archivos de programa, Borland, Delphi (La version que tengas), lib. En esta ultima carpeta, pones los componentes, sea pegas los archivos. Abre Delphi, Arriba en componenten, Install component. Te saldra una pantalla, Install Component, en Brouser, lo buscas y le das OK. Esto te lo instalara, en la barra de herramientas, Buscalo y lo usas como cualquier otro componente. Espero te quede Claro Saludos |
#5
|
||||
|
||||
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#6
|
|||
|
|||
mi programa esta echo en builder
tengo un problemon mi programa esta echo en builder y ya casi estoy en la etapa final, quisiera saber si este(Aletras) me puede ayudar en buider 5 o tengo que buscar otro componente para builder.(ayuda es para mi residencia profesional)
|
#7
|
||||
|
||||
Una simpe busqueda en los foros o una revisión de los "Hilos similares" que aparecen al final de la página te dará las respuestas que necesitas.
Otra cosa, revisa la Guía de estilo de los foros, nunca está de más... Un saludo. EDITO: Me dormí con el mensaje abierto y llegué tarde, muy tarde...
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#8
|
|||
|
|||
Numero en Expresion de Palabras
Para Delphi
Código:
Function Expresion(XNumero: Variant): String; const Unidades: array[1..9] of String = ('Un ','Dos ','Tres ','Cuatro ','Cinco ','Seis ','Siete ','Ocho ','Nueve '); Decimos: array[0..9] of String = ('Diez ','Once ','Doce ','Trece ','Catorce ','Quince ','Dieciseis ','Diecisiete ','Dieciocho ','Diecinueve '); Decenas: array[1..9] of String = ('Diez ','Veinte ','Treinta ','Cuarenta ','Cincuenta ','Sesenta ','Setenta ','Ochenta ','Noventa '); Centenas: array[1..9] of String = ('Cien ','Doscientos ','Trescientos ','Cuatrocientos ','Quinientos ','Seiscientos ','Setecientos ','Ochocientos ','Novecientos '); var cNumero: String; nInd, nDigito, nPos: Integer; LDec: Boolean; begin Result := ''; if XNumero <> Null then begin cNumero := IntToStr(XNumero); LDec := True; for nInd := 1 to Length(CNumero) do begin nDigito := StrToInt(cNumero[nInd]); nPos := Length(CNumero) + 1 - nInd; if nDigito <> 0 then begin if nPos in [3,6,9,12] then if nDigito = 1 then if (StrToInt(cNumero[nInd+1]) = 0) and (StrToInt(cNumero[nInd+2]) = 0) then Result := Result + Centenas[nDigito] else Result := Result + 'Ciento ' else Result := Result + Centenas[nDigito] else if nPos in [2,5,8,11] then begin Ldec := True; if nDigito = 1 then begin Result := Result + Decimos[StrToInt(cNumero[nInd+1])]; LDec := False; end else if nDigito = 2 then if (StrToInt(cNumero[nInd+1]) = 0) then Result := Result + Decenas[nDigito] else Result := Result + 'Veinte y ' else Result := Result + Decenas[nDigito]; if not(nDigito in [0,1,2]) and (StrToInt(cNumero[nInd+1]) <> 0) then Result := Result + 'y '; end else if (nPos in [1,4,7,10]) and LDec then if (nDigito <> 1) then Result := Result + Unidades[nDigito] else if nPos in [1,7] then Result := Result + Unidades[nDigito]; end; if nPos = 4 then if not((StrToInt(cNumero[nInd]) = 0) and (StrToInt(cNumero[nInd-1]) = 0) and (StrToInt(cNumero[nInd-2]) = 0)) then Result := Result + 'Mil '; if nPos = 7 then if (nDigito = 1) and (Length(CNumero) = 7) then Result := Result + 'Millon ' else Result := Result + 'Millones '; if nPos = 10 then Result := Result + 'Mil '; end; end; end; |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Convertir números en letras | c748a | Varios | 14 | 10-04-2015 20:52:18 |
Numeros y letras | Caral | Varios | 11 | 28-03-2008 18:22:53 |
Numeros a Letras!! | jmedina | Varios | 26 | 20-10-2005 20:19:42 |
trasformar numeros a letras | NestorN | Varios | 1 | 17-09-2005 01:33:44 |
como validar numeros y letras | ealexmp | Impresión | 0 | 29-12-2004 23:11:17 |
|