Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
r: real;
i: Integer;
begin
Randomize;
for i := 0 to 50 do
begin
r := Random(51);
ListBox1.Items.add('Zahl: ' + FloatToStr(r));
end;
end;
Randomize sollte nur ein mal aufgerufen werden. Random(51) erzeugt Zahlen zwischen 0 und 50 (einschließlich der Grenzen).
