randomzahlen aufaddieren

[Skiron]

wenn ich dich richtig verstanden habe, müsst das helfen:

Delphi-Quellcode:

function SummeRand(count, max: integer): integer;
var
  i: integer;
begin
  randomize;
  result := 0;
  for i := 1 to count do
    inc(result, random(max));
end;