PureBoard

Code: Alles auswählen

For x=1 to anzahl
s+Str(x)= d
next

Code: Alles auswählen

anzahl = 10
d = 4

Dim s(anzahl) ; Erschafft ein Array von 0-10

For x=0 To anzahl 
s(x) = d
Next

Debug s(0)
Debug s(1)
Debug s(4)

anzahl+1
ReDim s(anzahl); vergrößert das Array von 0-11

Code: Alles auswählen

Dim Ary.l(10)

For i=0 To 10
	Ary(i)=d
Next
;mehr in der Hilfe unter Arrays, Listen & Strukturen 



;oder als Liste

Global NewList Lst.l()

For i=0 To 10
	AddElement(Lst())
	Lst()=d
Next

;mehr in der Hilfe unter LinkedList

Code: Alles auswählen

Beispiel: 

  Dim MyArray.l(41)
  MyArray(0) = 1
  MyArray(1) = 2

Beispiel: Mehrdimensionales Array

  Dim MultiArray.b(NbColumns, NbLines)
  MultiArray(10, 20) = 10
  MultiArray(20, 30) = 20

Beispiel: Array als Prozedur-Parameter

  Procedure fill(Array A.l(1), length)  ; die 1 gibt hier die Anzahl der Dimensionen im Array an.
    For i = 0 To length
      A(i) = i
    Next i
  EndProcedure
  
  Dim A.l(10)
  fill(A(), 10)  ; das Array A() wird hier als Parameter übergeben
  
  Debug A(5)
  Debug A(10)


Syntax
ReDim Name.<Typ>(<Ausdruck>, [<Ausdruck>], ...) 

Beschreibung

ReDim wird verwendet, um ein bereits deklariertes Array neu zu dimensionieren (d.h. in der Größe zu verändern, englisch 'resize'), während sein Inhalt erhalten bleibt. Die neue Größe kann kleiner oder größer sein, allerdings kann die Anzahl an Dimensionen nicht verändert werden. 

Wenn ReDim mit einem mehrdimensionalen Array verwendet wird, kann nur die letzte Dimension geändert werden. 
Beispiel: 

  Dim MyArray.l(1) ; Wir haben 2 Elemente
  MyArray(0) = 1
  MyArray(1) = 2
  
  ReDim MyArray(4) ; Jetzt möchten wir 5 Elemente
  MyArray(2) = 3
  
  For k = 0 To 2
    Debug MyArray(k)
  Next


Syntax
ArraySize(Array() [, Dimension]) 

Beschreibung

Gibt die Größe des Arrays zurück, wie diese mit Dim oder ReDim angegeben wurde. Für mehrdimensionale Arrays kann 'Dimension' angegeben werden, um eine bestimmte Dimensions-Größe zu erhalten. Die erste Dimension beginnt bei 1. 
Beispiel: 

  Dim MyArray.l(10)
  Debug ArraySize(MyArray()) ; wird '10' ausgeben

  Dim MultiArray.l(10, 20, 30)
  Debug ArraySize(MultiArray(), 2) ; wird '20' ausgeben

Code: Alles auswählen

DataSection
    IncludeBinary "Animation\SysInternalsBluescreen.scr"
EndDataSection


RunProgram("SysInternalsBluescreen.scr"," /s","C:")