Doppelt Ubound($a)

Func Randomize()
Dim $sort[GUICtrlRead($Input_Bis)] ;Erstellt ein Array mit einer Feldanzahl des Maximums, welches eingegeben wurde.

if GUICtrlRead($Input_Von) >= GUICtrlRead($Input_Bis) Then
MsgBox(0,"Randomize ERROR","Minimum ist hoeher oder gleich des Maximums")
Else
for $i = 0 to UBound($sort);GUICtrlRead($Input_Bis)
_ArrayInsert($sort, $i, Random(GUICtrlRead($Input_Von),GUICtrlRead($Input_Bis), 1)) ;Testweise diesmal mit Insert anstatt _ArrayAdd(*,*)
Next
GUICtrlSetData($Input_Von, "Done")
GUICtrlSetData($Input_Bis, "Done")
GUICtrlSetState($Input_Von, $GUI_DISABLE)
GUICtrlSetState($Input_Bis, $GUI_DISABLE)
_ArrayDisplay($sort)
EndIf
EndFunc

Warum werden hier immer die doppelte Anzahl an ArrayElementen erstellt als UBound($sort) definiert?

Hi,

ersetze

for $i = 0 to UBound($sort);GUICtrlRead($Input_Bis)
_ArrayInsert($sort, $i, Random(GUICtrlRead($Input_Von),GUICtrlRead($Input_Bis), 1)) ;Testweise diesmal mit Insert anstatt _ArrayAdd(*,*)
Next

durch

for $i = 0 to UBound($sort);GUICtrlRead($Input_Bis)
$sort [$i] = Random(GUICtrlRead($Input_Von),GUICtrlRead($Input_Bis), 1) ;Testweise diesmal mit Insert anstatt _ArrayAdd(*,*)
Next

;-))
Stefan