sumar cada digito de un numero entero

[roman]

¡Ah! Muy bien, ¿y no lo vas a compartir como los demás compartieron contigo?

// Saludos

[emenchi34]

Copy(S; Index, Count: Integer): string;

 var
  numero, resultado : string;

 begin
  numero := '12345678';
  resultado := Copy(numero, 8, 1);
  ShowMessage('resultado : '+resultado);
 end;

resultado : 8

Saludos

[jachguate]

Lo siento, pero ni '12345678' es un número, ni el resultado es 8, mas bien es '8'.

A mi nunca me ha gustado eso de convertir de números a caracteres para una operación que puede hacerse solo con números, por ejemplo:

Código Delphi [-]
function UltimoDigito(Numero: Int64): Byte;
begin
  result := Numero mod 10;
end;

var
  numero, resultado: Integer;
begin
  Numero = 12345678;
  Resultado := UltimoDigito(Numero); // ahora si, es 8
end;

Por eso decía que ya debieras tener suficientes ideas con lo dicho antes...

Hasta luego.

[emenchi34]

eso ya lo se al resultado lo necesitaba en string, y mi solucion al fin de cuentas es valida ¿nop?