Timer

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.

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.

markieren

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

markieren

Code:

Index := Random(ItemCount-1)

**DeddyH**

Wenn das letzte Element immer ausgeschlossen sein soll, ist das jetzt richtig, ansonsten nicht.

Zitat von DeddyH:

Wenn das letzte Element immer ausgeschlossen sein soll, ist das jetzt richtig, ansonsten nicht.

*Lach* Klar doch, deswegen hat's ja im vorfeld immer funktioniert.

Logik ist was schönes wenn man sie versteht

In diesem Sinne

Timer

AW: Timer

AW: Timer

AW: Timer

AW: Timer

AW: Timer

Stichworte

Forumregeln

Fukiszo (Gast) n/a Beiträge	#1 AW: Timer 21. Jan 2018, 00:36 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.
	Zitat

himitsu Registriert seit: 11. Okt 2003 Ort: Elbflorenz 44.360 Beiträge Delphi 12 Athens	#2 AW: Timer 21. Jan 2018, 01:46 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. Ein Therapeut entspricht 1024 Gigapeut.
	Zitat

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.658 Beiträge Delphi 12 Athens	#4 AW: Timer 21. Jan 2018, 10:27 Wenn das letzte Element immer ausgeschlossen sein soll, ist das jetzt richtig, ansonsten nicht. Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat

Fukiszo (Gast) n/a Beiträge	#5 AW: Timer 21. Jan 2018, 14:18 Zitat von DeddyH: Wenn das letzte Element immer ausgeschlossen sein soll, ist das jetzt richtig, ansonsten nicht. Lach Klar doch, deswegen hat's ja im vorfeld immer funktioniert. Logik ist was schönes wenn man sie versteht In diesem Sinne
	Zitat