edit1.text içerisindeki rakamları toplamak

[Sawyer]

merhaba,

edit1.text içerisinde atıyorum

1234567890123 yazıyor ben bu bütün rakamların toplanmasını istiyorum yani

edit2.text:= edit1.text in bütün rakamlarının toplanmış hali

edit1.text:='1234567890123';
edit2.text=1+2+3+4+5+6+7+8+9+0+1+2+3
yani 50

bunu nasıl yapabilirim?

[zyildiz]

once textin içindeki textin boyunu bulup bir dongu ile butun degerleri toplatacaksın ornek asagıda

Kod: Tümünü seç

procedure TForm1.cxButton1Click(Sender: TObject);
var
say,i,topla,k:integer;
begin
k:=0;
topla:=0;
say:=Length(cxTextEdit1.Text);
  for I := 0 to say - 1 do
  begin
  k:= strtoint(copy(cxTextEdit1.Text,i+1,1));
  topla:=topla+k;
  ShowMessage('toplam= '+inttostr(topla)+' / i degeri'+ inttostr(i)+' / +k degeri '+inttostr(k));

  end;
  ShowMessage(inttostr(topla));
end;

end.

[mrmarman]

daha karmaşık hesaplar da olacaksa şunu deneyin
viewtopic.php?t=24864&p=140932#p140932