FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
ayuda con string
Hola tengo un código con la forma xxx/xx (string), ejemplo 434/04, el 04 indica el año en el que estamos, y me gustaría que el valor qu está antes de la barra, en este caso 434 se incrementara en una unidad : 435 al pulsar un botón, pero la parte que está despues de la barra no, me podeis ayudar??
|
#2
|
||||
|
||||
434/04
Var nStart:Integer; cFin:String begin nStart:=StrToInt(Copy(MiVariable,1,3)); cFin:=Copy(MiVariable,4,3); nStart:=nStar +1; MiVariable:=IntToStr(nStart)+cFin End; No tengo Delphi a mano ahora mismo, pero esta es la idea. Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
|
#3
|
|||
|
|||
pues...
Esto te va a fallar cuando el valor pase a 1000
Código:
434/04 Var nStart:Integer; cFin:String begin nStart:=StrToInt(Copy(MiVariable,1,3)); cFin:=Copy(MiVariable,4,3); nStart:=nStar +1; MiVariable:=IntToStr(nStart)+cFin End; Código:
Var nStart : Integer; cFin : String begin nStart := StrToInt(Copy(MiVariable,1,Pos('/',MiVariable)-1)); cFin:=Copy(MiVariable,Pos('/',MiVariable),100); //solo para asegurar que //obtenemos todo el final de la cadena Inc(nStart); MiVariable:=IntToStr(nStart)+cFin End;
__________________
saludos desde Puebla Mexico.. asanxt@hotmail.com "como siempre a sus ordenes y siempre con buena cara" 'lolita me excitas, perversa piel de melocotón' |
|
|
|