das hier dauert einfach endlos:
[autoit]Func _clearApplicationIniArrayEditor()
For $y=0 to 149
for $x=0 to 49
$RunningApplicationPatchData[$y][$x] = ""
Next
Next
EndFunc
das hier dauert einfach endlos:
[autoit]Func _clearApplicationIniArrayEditor()
For $y=0 to 149
for $x=0 to 49
$RunningApplicationPatchData[$y][$x] = ""
Next
Next
EndFunc
Wenn du die Dimensionen kennst dann gehts auch so
[autoit]
Func _clearApplicationIniArrayEditor()
$RunningApplicationPatchData = 0
Dim $RunningApplicationPatchData[149][49]
EndFunc
Wenn du die Dimensionen nicht kennst übergib einfach Parameter mit
[autoit]
Func _clearApplicationIniArrayEditor($UBoundy, $UBoundx)
$RunningApplicationPatchData = 0
Dim $RunningApplicationPatchData[$UBoundy][$UBoundx]
EndFunc
[/autoit]
So funktioniert es immer:
[autoit]Func _ArrayPurge(ByRef $aArray)
; Author: ProgAndy
Local $iDims = Ubound($aArray, 0)
Switch $iDims
Case 0
Return SetError(1, 0, 0) ; Kein Array
Case 1
Local $i = Ubound($aArray)
Dim $aArray[$i]
Case 2
Local $i = Ubound($aArray)
Local $j = Ubound($aArray, 2)
Dim $aArray[$i][$j]
Case 3
Local $i = Ubound($aArray)
Local $j = Ubound($aArray, 2)
Local $k = Ubound($aArray, 3)
Dim $aArray[$i][$j][$k]
Case Else
Return SetError(2,0,0) ; Zu viele Dimensionen
EndSwitch
Return 1
EndFunc
Übrigens ist [ ][ ] ein 2D-Array. 3D wäre [ ][ ][ ]
heute hab ichs irgendwie mit 3d
danke jungens ... das ging