zufallszahlen

[Nemesis333]

hallo ich habe ein problem:

ich habe gerade angefangen delphi zu lernen und würde gerne zufallszahlen zwischen 0 und 31 programieren, wie funktioniert das? aus der hilfe werde ich nicht schlau

[Luckie]

Zitat:

Zitat von Nemesis333

hallo ich habe ein problem:

ich habe gerade angefangen delphi zu lernen und würde gerne zufallszahlen zwischen 0 und 31 programieren, wie funktioniert das? aus der hilfe werde ich nicht schlau

Kann ich eigentlich nicht glauben. Dann solltest du dich mal etwas näher damit beschäftigen. Wenn man dies liest:

Zitat:

In Delphi gibt Random eine Zufallszahl im Bereich 0 <= X < Range zurück. Wird der Parameter Range nicht angegeben, liefert Random einen Real-Wert im Bereich

dann resultiert eigentlich direkt dieser Code daraus:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 Loop: Cardinal;
begin
  for Loop := 0 to 31 do
    Listbox1.Items.Add(IntToStr(Random(31)));
end;

Wo ist jetzt das Problem?

[MarcusB]

Guckst du hier :shock:

[dizzy]

Zitat:

Zitat von Luckie

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 Loop: Cardinal;
begin
  for Loop := 0 to 31 do
    Listbox1.Items.Add(IntToStr(Random(31)));
end;

Wo ist jetzt das Problem?

Eigentlich "Random(32)", da ja "0 <= X < (NICHT <=) Range". ;)

[Luckie]

Zitat:

Zitat von dizzy

Zitat:

Zitat von Luckie

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 Loop: Cardinal;
begin
  for Loop := 0 to 31 do
    Listbox1.Items.Add(IntToStr(Random(31)));
end;

Wo ist jetzt das Problem?

Eigentlich "Random(32)", da ja "0 <= X < (NICHT <=) Range". ;)

Hmpf. :roll: Siehe Signatur. ;)

[Giantics]

Zitat:

Zitat von dizzy

Zitat:

Zitat von Luckie

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 Loop: Cardinal;
begin
  for Loop := 0 to 31 do
    Listbox1.Items.Add(IntToStr(Random(31)));
end;

Wo ist jetzt das Problem?

Eigentlich "Random(32)", da ja "0 <= X < (NICHT <=) Range". ;)

Kommt ja auch wieder drauf an wie er es danach rundet :stupid:

[dizzy]

HM :?: Nö. Mit angegebener Range gibt Round nen Integer zurück, oder nicht!?

[Nemesis333]

cool danke, aber wie bekomme ich jetzt hin dass er mir nur eine zufallszahl generiert und nich gleich soviele?

[Nemesis333]

ok sry ich habe etwas vorschnell gepostet ;) ich habs. nur noch das problem, wie bekomme ich die null da raus? also nur zahlen von inklusive 1 bis inklusive 30

[Keldorn]

Hallo

einfach 1 addieren

Delphi-Quellcode:

zahl:=random(30)+1;

random(30) liefert dir Zahlen von 0 bis 29. wenn du dann immer eins addierst, bist du bei 1 bis 30

Mfg Frank

edit:

Zitat:

ok sry ich habe etwas vorschnell gepostet

ich auch. Sag mal, du hast es wohl nicht für nötig gehalten den link von MarcusB mal anzuklicken? Da steht drin, wie mann eine Zufallszahl VON BIS erhält :roll:

[c113plpbr]

Man sollte Randomize nicht vergessen, denn sonst isses kein Zufall (^^) ... isses eh nicht ... :lol:

ciao, Philipp

[Nemesis333]

ich glaub jetzt hab ichs kapiert, danke ;)

[Nemesis333]

hm,..., könnt ihr mir noch erklären wie das mit dem randomize funzt, aus dem werd ich net schlau, hab mir die hilfe durchgelesen, aber blick es net

[Markus K.]

Hallo Nemesis333,
du musst einfach nur Randomize aufrufen (z.B. im onCreate-Ereignis).

Delphi-Quellcode:

begin
     randomize;
end;

So wird der Zufall "inizilisiert".

Tschüß Markus