Ver Mensaje Individual
  #2  
Antiguo 03-05-2004
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Reputación: 10
marcoszorrilla Va por buen camino
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:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita