Array
(
)

No Edit tenho 462350 como somar 4 6 2 3 5 0?

Exvasp
   - 05 abr 2006

Como somar todos números de um edit e colocar o resultado em outro edit?
No Edit tenho 462350 como somar 4+6+2+3+5+0 e colocar o resultado em outro edit?

Agradeço a todos que puderam me ajudar


Rjun
   - 05 abr 2006

Você pode pegar cada posição da string, converter para inteiro e somar.

#Código


Soma := 0;
for i = 0 to Length(Edit1.Text) do
Soma := Soma + StrToInt(Edit1.Text[i]);