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

Question

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 · Answer

Voc� pode pegar cada posi��o da string, converter para inteiro e somar.

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