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

Delphi

05/04/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


Exvasp

Exvasp

Curtidas 0

Respostas

Rjun

Rjun

05/04/2006

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]);



GOSTEI 0
POSTAR