function teilersumme

[neroo]

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.