Einzelnen Beitrag anzeigen

hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
7.878 Beiträge
 
Delphi XE4 Professional
 
#2

AW: function teilersumme

  Alt 5. Okt 2018, 16:49
Hallo,
nimm eine Schleife, i und sum sind Integer

Delphi-Quellcode:
sum:= 0;
for i:= 0 to ListBox.Items.Count-1 do
begin
  sum:= sum+StrToInt(ListBox.Items[i])
end;
Oder meintest Du etwas anderes?

Huch: steht doch bei dir schon da, statt sum j, OK, sprechende Variablen haben wir später
Heiko
  Mit Zitat antworten Zitat