Timer

[Fukiszo]

Da du ja dein problem gelöst hast geh ich mal auf einen direkten fehler ein.

RANDOMIZE gehört nicht in den timer sondern in deiner FormCreate phase,
das soll nur einmal aufgerufen werden!

[Zeref Darkmage]

Danke dir, ist geändert und gemerkt !

LG Zeref

[Fukiszo]

Nachtrag:

Wenn du mit der RANDOM() funktion Zahlen zwischen 1-6 haben willst, solltest du das nach dem RANDOM() auch kontrollieren.
(Wegen dem Wort Würfel)

so wäre mein aufruf

GoZahl:=random(6); // <- hier könnte das ergebniss 0 sein aber ich lass dein +1 weg damit nur nach <1 geprüft werden brauch
if GoZahl < 1 then GoZahl := 1;

oder alternativ
GoZahl:=random(5); // hier kann 0-5 rauskommen
Inc(GoZahl, 1); // also geben wir hier noch einen rauf

das ist nur ein Vorschlag.

Grüße

[gammatester]

Du liegst um 1 daneben: Bei random(5) kann das Ergebnis nicht 5 sein: 0 <= random(6) <= 5 und 0 <= random(5) <= 4.

Es gibt auch nix zu kontrollieren: r := 1 + random(6) liefert Zahlen mit 1 <= r <= 6.

[Fukiszo]

Echt? Da frag ich mich wieso Random() bei mir so funktioniert wie beschrieben.
Z.Bsp. hab ich ein Programm das per Random einen Listen Index bestimmen soll,
ab und zu ist's auch der letzte Eintrag.... komisch

Danke für dein OneLiner ums einzugrenzen.

ps: ich nutz auch Delphi 7

Ich geh der Sache mal nach, aber nicht mehr jetzt,

Gute Nacht.

[himitsu]

Random liefert 0 <= r < 1 (also bis 0.0 bis 0.9999...)
und Random(x) liefert 0 <= r < x (also 0 bis x-1)

Random(x) entspricht Trunc(Random * x)
falls jemand am Rundungsverhalten der FPU rumfummelt, dann kann auch mal was Komisches bei raus kommen.

[Fukiszo]

Ich bitte höflichst um Verzeihung!

Da ich diese Funktion tatsächlich nur in einer Sache benutze und die auch noch verkehrt/falsch programmiert wurde funktioniert es bei mir wie beschrieben.

Zur Erklärung hier mein Fehler, danke nochmal gammatester für die Korrektur!!! Auch himitsu für die Wiederholung.

Code:

Index := Random(ItemCount)

Da ItemCount ja bei 1 = Index 0 ist, klappts und ich hatte mir darüber keine weiteren Gedanken gemacht.
Bevor ihr darauf eingeht sei gesagt, ja ich kontrolliere im Nachhinein ob der Index exisiert.
Bei mir ist es eine Live ListView die auf Veränderungen im Datei-System reagiert wodurch sich der Count Wert ändern kann.
Das Random() dient mir in einer "Shuffle" funktion.

Also nochmals, Entschuldigung für meine fehlerhafte Erklärung!
Nun ist mein Code korrigiert und Index 0 steht nun auch frei zur Verfügung.

edit:
hier meine Korrektur

Code:

Index := Random(ItemCount-1)