Ejercicio con Posiciones de dígitos

[[BlueSteel]]

tambien podrias utilizar el siguiente ejemplo

debes tener 2 componentes...

1 Edit -> llamado en este caso vVar
1 Boton ->

en el evento del boton puedes poner este codigo..

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
   vSuma : Integer;
begin
     vSuma := StrToInt(vVar.Text[1])+StrToInt(vVar.Text[2])+StrToInt(vVar.Text[3])+StrToInt(vVar.Text[4]);
     if vSuma = StrToInt(vVar.Text[5]) Then
        ShowMessage('Correcto')
     Else
        ShowMessage('Incorrecto');
end;

espero te sirva.. ahh. y tambien es algo sencillo..... lo que hace es trabajar el texto como un array

[gerupc]

Hola,

muchísimas gracias por contestar y por vuestra atención.

Bien, la mejor solución es la que me da Seoane, ya que como he dicho, no es porque sean avanzadas o no, esa es otra cuestión, si no porque 'me exigen' (aunque no me lo vayan a mirar, lo hago para practicar los ejercicios que tendré que hacer) que lo haga mediante este tipo de métodos, es decir sin funciones, procedimientos,etc... Pero la culpa ha sido mia por no haber explicado estos detalles en el primer post

Asi que, una vez más, gracias. B3nshi, me parece que tu solució sería muy buena. La de Seoane me basta, pero si no te importa, como dices, miramos el código en C e intentamos (más que nada yo, que soy el que tiene que aprender ) traducirlo a Delphi.

Un saludo,

Geru.

[gerupc]

Hola,

perdonad, pero hay una cosa que no entiendo, si se supone que ' k:= k + (i mod 10);' y ' j := i mod 10', porqué : ' k:= k + j; no me funciona??

Y qué función cumple el que haga: 'a la variable k le asigno el valor de k + último dígito' ? sumar todos los digitos de la cifra? y que la clave se divida entre 10 en la siguiente sentencia??

Lo siento, os voy a volver locos... muchas gracias a todos.

Un saludo,

Geru.

[[seoane]]

Empezado por gerupc

perdonad, pero hay una cosa que no entiendo, si se supone que ' k:= k + (i mod 10);' y ' j := i mod 10', porqué : ' k:= k + j; no me funciona??

¿Te das cuenta de que el valor de i varia dentro del bucle?

[gerupc]

Aupa Seoane,

vale,vale..., no me había dado cuenta... Oye la última cosilla, si no es mucho pedir, me podrías explicar las siguientes sentencias?

Código Delphi [-]
k := k + (i mod 10);
    i:= i div 10;

Es que algo las entiendo, pero no quiero asimilarlas estos conceptos mal...muchísimas gracias.

Un saludo,

Geru.

[[seoane]]

Empezado por gerupc

Oye la última cosilla, si no es mucho pedir, me podrías explicar las siguientes sentencias?

La operación "mod" nos devuelve el resto de la división entera. El resto que queda al dividir un numero por 10 es el dígito que se encuentra mas a la derecha.

Si tenemos en cuenta lo anterior, podemos obtener las cifras que forman un numero aplicando sucesivamente las operación mod y div. Con mod obtenemos la cifra mas a la derecha y con div desplazamos todas las cifras un puesto hacia la derecha.

Por ejemplo:

1234
1234 mod 10 = 4 <- Primera cifra
1234 div 10 = 123
123 mod 10 = 3 <- Segunda cifra
123 div 10 = 12
12 mod 10 = 2 <- Tercera cifra
12 div 10 = 1
1 mod 10 = 1 <- Cuarta cifra
1 div 10 = 0 <- Cuando llegamos a cero es que hemos terminado

[gerupc]

Hola,

una vez más, muchas gracias por tu ayuda, me ha sido de gran utilidad. Ya que conocia la función de 'mod', pero no la manera en la que se aplicaba en este caso.

Un saludo,

Geru.