ich wollte ein Array von Objekten, die selber ein Array enthalten. Nur geht das nicht.
Code: Alles auswählen
REM ***** BASIC *****
Type obj_In
int_ID As Integer
str_Text_In As String
End Type
Type obj_Out
int_ID As Integer
str_Text As String
arr_In(10) As obj_In
End Type
Global arr_A(10) As obj_Out
Sub Main
S_Init()
End Sub
Sub S_Init()
Dim int_run_Out As Integer
For int_run_Out = 0 to 9
Dim int_run_In As Integer
arr_A(int_run_Out).int_ID = inr_run_Out
arr_A(Int_run_Out).str_Text = "Test"
For int_run_In = 0 to 9
arr_A(int_run_Out).arr_In(int_run_In).int_ID = int_run_In
arr_A(int_run_Out).arr_In(int_run_In).str_Text_In = ""
Next int_run_In
Next int_run_Out
End Sub
Trotzdem geht ein Zugriff auf das Array im Objekt.
Code: Alles auswählen
arr_A(0).arr_In(0).int_ID IST 9
arr_A(0).arr_In(6).int_ID IST 9
arr_A(2).arr_In(6).int_ID IST 9
MfG und so
Magier