Hallo,
ich habe ein Programm geschrieben, das die Teiler einer Zahl ausgibt und schließlich die Summe der Teiler aufaddiert.
Code:
| |
| procedure TForm1.berechnenClick(Sender: TObject); |
| var |
| i,j,zahl,teiler:integer; |
| begin |
| listbox1.clear; |
| try |
| Zahl:=strtoint(s_zahl.text); |
| For teiler:=1 to zahl do |
| begin |
| If (zahl mod teiler)=0 then |
| begin |
| listbox1.items.add(inttostr(teiler)); |
| end; |
| end; |
| // summe aller Teiler |
| j:=0; |
| For i:=0 to listbox1.items.count -1 do |
| j:=strtoint(listbox1.items[i])+j; |
| s_teiler.caption:=inttostr(j); |
| except showmessage('error'); |
| end; |
| end; |
wie kann ich mithilfe einer Funktion die Summe der Teiler, die sich in einer Listbox befinden, berechnen?
Danke.