ayuda con string

[davidgaldo]

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]

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]

Esto te va a fallar cuando el valor pase a 1000

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

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;