Random Befehl spielt verrückt

[MrMyagi]

Richtig,
ansonsten würde ich es mal mit einem Neustart versuchen :wink:

[abrosda]

Jupp sorry, hab den Quellcode nur halb gelesen :stupid:

Nimm RandomRange(1,6), wenn vorhanden, oder probier es mit:

f := Round(Random(6)+1);

und wenn immer noch Werte fehlen, bau noch einen else Zweig ein und lass Dir den Wert anzeigen...

[STS301]

@ deddyH wem sagst du das, dem Rechner kann ich leider nichts eintrichtern und ich weiß gerade nicht wo der Hammer ist

[fLaSh11]

Außerdem:

Delphi-Quellcode:

if f=1 then
showmessage('1')
else if f=2 then
showmessage('2')
else if f=3 then
showmessage('3')
else if f=4 then
showmessage('4')
else if f=5 then
showmessage('5')
else if f=6 then
showmessage('6')

bewirkt das gleiche wie:

Delphi-Quellcode:

ShowMessage(IntToStr(f));

:wink:

[sirius]

Delphi-Quellcode:

randomize;
f:=random(6)+1;
showmessage(inttostr(f));

[DeddyH]

Das round() kannst Du Dir übrigens sparen, wenn Du eine Range angibst. Außerdem, wenn schon Fallunterscheidung, dann mit case ;)

[STS301]

mit

Delphi-Quellcode:

f:= Round(Random(6)+1);

funktioniert es

@DeddyH wie meinst du das mit einer Rangeangabe

[DeddyH]

Ich meine damit den Parameter. Random(6) ergibt eine ganze Zahl zwischen 0 und 5. Random() ergibt eine reelle Zahl zwischen 0 und 1. Steht alles in der Hilfe ;)

[angos]

mumpitz gelöscht. thread nicht zuende gelesen :)

[Nuclear-Ping]

Zitat:

Zitat von STS301

mit

Delphi-Quellcode:

f:= Round(Random(6)+1);

funktioniert es

... dann muss es aber auch mit

Delphi-Quellcode:

f := Random(6) + 1;

funktionieren. Random liefert doch ne ganze Zahl zurück, da sollte doch "Round" völlig egal sein? :gruebel: