XProfan

Declarar Test1#,Test2#,Test3#
Struct AHA = wert&
Dim Test1#,AHA
Dim Test2#,AHA
Dim Test3#,AHA
Test1#.wert& = 100
Test2#.wert& = 200
Test3#.wert& = 200
Declarar Array#[]
Dim Array#[],AHA
Array#[0] = Test1#
Array#[1] = Test2#
Array#[2] = Test3#
Imprimir "Aha"

WhileLoop 0,2

    Imprimir Array#[&Loop].wert&

Wend

Waitinput
Disponer Test1#,Test2#,Test3#,Array#[]