will randomzahlen aufaddieren

[negaH]

Gut dann wäre das richtig:

Delphi-Quellcode:

if ZufallsZahl = 1 then Summe := 0
  else Inc(Summe, ZufallsZahl);

Was funktioniert nun nicht richtig ? Denn dein eigene Code macht exakt das du willst.

Gruß Hagen