Hi Leuts!
Also ich hab folgendes Probelm. Ich habe möchte RandomRange Zahlen aus dem Bereich 100-200 generieren. Zufällig und ohne Wiederhohlung. Mein Code funktioniert an und für sich. Sprich Zahlen werden generiert und mir auch ausgespuckt. Nur werden auch immer wieder mal Zahlen unter 100 generiert, zB 67. oder ne 0. und wiederhohlen tun sie sich leider auch öfters mal.
ich mal meinen code. Die zahlen werden in ein Array geschrieben. wobei sich das array mit verschiedenen "Zahlenabschnitten" füllen muss. Ausgegeben wird das ganze mit canvas.textout und weiter unten im code steht (was keine Probleme macht!). außerdem werden immer die !selben! Zufallszahlen erzeugt! Was ja wohl nicht sinn der Sache ist.
Delphi-Quellcode:
procedure TForm1.LOSClick(Sender: TObject);
var i, j, h : integer;
begin
i:=0;
for j := 1 to 15 do begin
Fragenliste[i] := random(RandomRange (101, 200));
i:= i+1;
end;
for j := 16 to 25 do begin
Fragenliste[i]:= random(RandomRange (201, 300));
i:=i+1;
end;
for j := 26 to 40 do begin
Fragenliste[i] := random (RandomRange (301, 400));
i:=i+1;
end;
Danke im vorraus für eure Zeit!