Foros Club Delphi - ayuda con string

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - ayuda con string (https://www.clubdelphi.com/foros/showthread.php?t=9795)

davidgaldo

03-05-2004 11:10:57

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??

marcoszorrilla

03-05-2004 11:20:37

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.

sanxpue

03-05-2004 20:37:51

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;

Entonces mas general seria

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;

;)

La franja horaria es GMT +2. Ahora son las 04:19:55.