Random Befehl spielt verrückt

[MrMyagi]

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

[abrosda]

Jupp sorry, hab den Quellcode nur halb gelesen

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:
ShowMessage(IntToStr(f));

[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 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 von STS301:

mit f:= Round(Random(6)+1); funktioniert es

... dann muss es aber auch mitf := Random(6) + 1; funktionieren. Random liefert doch ne ganze Zahl zurück, da sollte doch "Round" völlig egal sein?