###Keyword###
ReDim

###Description###
Verndert die Gre eines bestehenden Arrays.

###Syntax###
<b>ReDim</b> $array<b>[</b>subscript 1<b>]</b>...<b>[</b>subscript n<b>]</b>

###Parameters###
@@ParamTable@@
$variable
	Die Name der zu verndernden Variable.
subscript
	Die Anzahl der Elemente, die in den einzelnen Arraydimensionen erstellt werden sollen; nummeriert von 0 bis n-1.
@@End@@


###Remarks###
Das Schlsselwort ReDim ist hnlich zu <a href="Dim.htm">Dim</a>, auer dass ReDim die Werte im Array nicht lscht, wenn die Arraygre verndert wird. Die Anzahl der Dimensionen des Arrays muss dazu allerdings gleich bleiben. Das Array erhlt den Gltigkeitsbereich (Glaobal oder Lokal), den es vor der Grenanpassung hatte.


###Related###
Dim, <a href="../functions/UBound.htm">UBound</a>


###Example###
; Beispiel zur Grenanpassung eines Arrays
Dim $I, $K, $T, $MSG
Dim $X[4][6], $Y[4][6]

For $I = 0 To 3
   For $K = 0 To 5
      $T = Int(Random(20) + 1)  ; Erzeugt zufllige Zahlen zwischen 1 und 20
      $X[$I][$K] = $T
      $Y[$I][$K] = $T
   Next
Next

ReDim $X[3][8]
Dim $Y[3][8]

$MSG = ""
For $I = 0 To UBound($X, 1) - 1
   For $K = 0 To UBound($X, 2) - 1
      If $K > 0 Then $MSG = $MSG & ", "
      $MSG = $MSG & $X[$I][$K]
   Next
   $MSG = $MSG & @CR
Next
MsgBox(0, "ReDim Demo", $MSG)

$MSG = ""
For $I = 0 To UBound($Y, 1) - 1
   For $K = 0 To UBound($Y, 2) - 1
      If $K > 0 Then $MSG = $MSG & ", "
      $MSG = $MSG & $Y[$I][$K]
   Next
   $MSG = $MSG & @CR
Next
MsgBox(0, "ReDim Demo", $MSG)
