Incremento de los digitos de un numero

[lily21]

hola, como puedo hacer para incrementar los digitos de un numero hasta 9 veces, por ejemplo :

si tengo: 123456 seria:
234567
345678
456789
567890
678901
789012
890123
801234
912345
muchas gracias para quien pueda ayudarme ...
saludos

[*Caro*]

Hola lily21, tendría que ser algo como esto:

Código Delphi [-]
 Indice := 1; 
 digito := numero mod 10;
 if digito<9 then
  numaux := digito+1
 else
  numaux := 0;
 
  numaux := numaux + digito * Power(10,Indice);
 
  while numero>0 do
  begin
   Inc(Indice);
   numero := numero div 10;
   digito := numero mod 10;
   if Length(IntToStr(numero))>1 then
    numaux := numaux  + digito * Power(10,Indice);
  end;

Puedes cambiar la funciíon Length por una que te hagas para contar digitos así no conviertes a String, el resultado esta en numaux, ahora para las 9 veces usas un for con el codigo de arriba, mejor aún si ese codigo lo colocas en una función .

Saluditos

[lily21]

gracias , disculpa mi falta de conocimientos , pero me puedes decir que hace la funcion power??

saludos

[rgstuamigo]

Empezado por lily21

gracias , disculpa mi falta de conocimientos , pero me puedes decir que hace la funcion power??

saludos

Es una funcion matemática exponencial que está en la unidad Math(la cual debes incluir en la seccion del Uses) que eleva un numero(Base) a otro numero(exponente).
Para mas informacion consulta la ayuda de Delphi presionando la tecla F1..
Saludos...

[lily21]

ah ya .. gracias y como yo puedo convertir de extended a integer?
saludos

[rgstuamigo]

Empezado por lily21

ah ya .. gracias y como yo puedo convertir de extended a integer?
saludos

Que deseas convertir la parte entera o la parte decimal?

[*Caro*]

Empezado por lily21

ah ya .. gracias y como yo puedo convertir de extended a integer?
saludos

Hola de nuevo lily21, define numaux de tipo Extended y lo demas Integer.

Código Delphi [-]
var
 numero, digito, Indice : Integer;
 numaux : Extended;

Saluditos

[roman]

Hola,

Se me ocurre esta función:

Código Delphi [-]
function Incrementa(Numero: Cardinal): Integer;
begin
  if Numero < 10 then
    Result := (Numero + 1) mod 10
  else
    Result := 10*Incrementa(Numero div 10) + Incrementa(Numero mod 10);
end;

Desafortunadamente, si el número no empieza en 1, en alguno de los incrementos el primer dígito será cero, y, al no contar los ceros iniciales, el siguiente paso fallará.

Podríamos usar una cadena para representar al número y usar algo como esto:

Código Delphi [-]
function Incrementa2(Numero: String): String;
var
  I: Integer;

begin
  Result := Numero;

  for I := 1 to Length(Numero) do
    Result[i] := Char(((Ord(Result[i]) - Ord('0') + 1) mod 10) + Ord('0'))
end;

// Saludos

[lily21]

muchas gracias , Roman .. está perfecto
has sido de mucha ayuda
saludos