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)