Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 18-12-2003
fortran fortran is offline
Miembro
 
Registrado: may 2003
Ubicación: Asturias
Posts: 63
Poder: 21
fortran Va por buen camino
Modificar un str dígito a dígito

Hola a todos:

Lo primero es decir que no se si este post debería estar aquí o en el de varios, bueno, los moderadores decidirán.

Trabajo con D5 en WXP y el problema es el siguiente:

Lo que quiero hacer es modificar un string que me llega haciendo una serie de operaciones matemáticas a cada dígito (el string que me llega es un string compuesto por 10 digitos enteros).

Para ello puedo acceder a cada uno de los digitos como:

mistring[i]

y puedo modificarlos haciendo

unentero := strtoint(mistring[i])+1 (por poner un ejemplo)

el problema me surge cuando los resultados obtenidos los quiero meter de nuevo en el string

stringresultado[i] := inttostr(unentero);

me dice que char y string no son tipos compatibles

¿como puedo hacerlo entonces?

Gracias por vuestra atención.
__________________
- ¿Y cuando dejaré de aprender maestro?.

- El día que te mueras pequeño saltamontes.
Responder Con Cita
  #2  
Antiguo 18-12-2003
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
stringresultado[i] := inttostr(unentero)[1];

// Saludos
Responder Con Cita
  #3  
Antiguo 18-12-2003
Delfino Delfino is offline
Miembro
 
Registrado: jul 2003
Ubicación: Madrid
Posts: 974
Poder: 21
Delfino Va por buen camino
Creo q te puede interesar la funcion StuffString..
Responder Con Cita
  #4  
Antiguo 19-12-2003
Avatar de guillotmarc
guillotmarc guillotmarc is offline
Miembro
 
Registrado: may 2003
Ubicación: Huelva
Posts: 2.638
Poder: 23
guillotmarc Va por buen camino
Hola

Otra forma :

stringresultado[i] := chr(unentero + 48);

(El 48 es el código ascii del carácter '0')

Saludos.
__________________
Marc Guillot (Hi ha 10 tipus de persones, els que saben binari i els que no).
Responder Con Cita
  #5  
Antiguo 19-12-2003
fortran fortran is offline
Miembro
 
Registrado: may 2003
Ubicación: Asturias
Posts: 63
Poder: 21
fortran Va por buen camino
Muchas gracias a todos, lo voy a probar ahora mismo, a propósito marc, ¿sabes de algún sitio donde estén listados los códigos ascii de todos los caracteres y número?.

Gracias
__________________
- ¿Y cuando dejaré de aprender maestro?.

- El día que te mueras pequeño saltamontes.
Responder Con Cita
  #6  
Antiguo 19-12-2003
fortran fortran is offline
Miembro
 
Registrado: may 2003
Ubicación: Asturias
Posts: 63
Poder: 21
fortran Va por buen camino
Muchas gracias a todos, lo voy a probar ahora mismo, a propósito marc, ¿sabes de algún sitio donde estén listados los códigos ascii de todos los caracteres y número?.

Gracias
__________________
- ¿Y cuando dejaré de aprender maestro?.

- El día que te mueras pequeño saltamontes.
Responder Con Cita
  #7  
Antiguo 19-12-2003
fortran fortran is offline
Miembro
 
Registrado: may 2003
Ubicación: Asturias
Posts: 63
Poder: 21
fortran Va por buen camino
Ya he probado las soluciones de Roman y Marc, funcionan perfectamente ambas, muchas gracias.

Delphino, la función que me dices no la encuentro por ninguna parte, ni en la ayuda de delphi, ni en la de windows. ¿me puedes decir donde encontrarla?.

Un saludo
__________________
- ¿Y cuando dejaré de aprender maestro?.

- El día que te mueras pequeño saltamontes.
Responder Con Cita
  #8  
Antiguo 19-12-2003
Avatar de guillotmarc
guillotmarc guillotmarc is offline
Miembro
 
Registrado: may 2003
Ubicación: Huelva
Posts: 2.638
Poder: 23
guillotmarc Va por buen camino
Hola.

No he encontrado la tabla ASCII en la ayuda de Delphi. Como es muy común la podrás encontrar buscando por Internet.

Si quieres puedes consultarla por encima, mediante el Mapa de carácteres de Windows (en Accesorios, Herramientas del sistema). Simplemente ponte encima del carácter deseado y te dirá su código Ascii (en Hexadecimal, puedes convertirlo al decimal mediante la calculadora).

Saludos.
__________________
Marc Guillot (Hi ha 10 tipus de persones, els que saben binari i els que no).
Responder Con Cita
  #9  
Antiguo 19-12-2003
fortran fortran is offline
Miembro
 
Registrado: may 2003
Ubicación: Asturias
Posts: 63
Poder: 21
fortran Va por buen camino
Gracias Marc, con eso me vale. Ahora que lo dices había encontrado una tabla y me había liado.
__________________
- ¿Y cuando dejaré de aprender maestro?.

- El día que te mueras pequeño saltamontes.
Responder Con Cita
  #10  
Antiguo 21-12-2003
Tomás Tomás is offline
Miembro
 
Registrado: may 2003
Ubicación: Elche
Posts: 140
Poder: 21
Tomás Va por buen camino
Códigos ascii

http://www.asciitable.com/

Suerte.
Responder Con Cita
  #11  
Antiguo 22-12-2003
Delfino Delfino is offline
Miembro
 
Registrado: jul 2003
Ubicación: Madrid
Posts: 974
Poder: 21
Delfino Va por buen camino
esa funcion se encuentra el unidad StrUtils y no se si solo en Delphi7 q tengo, es muy potente y permite quitar una substring de una string y sustituirla con otra especificando donde se empieza la sustitucion y cuantos caracteres toma..
Responder Con Cita
  #12  
Antiguo 22-12-2003
fortran fortran is offline
Miembro
 
Registrado: may 2003
Ubicación: Asturias
Posts: 63
Poder: 21
fortran Va por buen camino
Gracias, delphino y Tomás. Delphino, yo trabajo con D5 y no he encontrado tal función.
__________________
- ¿Y cuando dejaré de aprender maestro?.

- El día que te mueras pequeño saltamontes.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 02:33:49.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi