Thema: Delphi RandomRange Problem

Einzelnen Beitrag anzeigen

torro

Registriert seit: 16. Sep 2010
37 Beiträge
 
#1

RandomRange Problem

  Alt 16. Sep 2010, 17:57
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!

Geändert von torro (16. Sep 2010 um 18:02 Uhr) Grund: wollt mich noch bedanken, und ein nachtrag
  Mit Zitat antworten Zitat