Code: Alles auswählen
[20:04:59] [COMPILER] Zeile 12: MyArray() is not a function, array, macro or linked list

Hier der Code:
Code: Alles auswählen
Structure User
Name.s
online.s
EndStructure
Dim MyArray.User(41)
Procedure cfgload()
If OpenPreferences("cfg.ini")
PreferenceGroup("Z")
For k = 1 To 10
MyArray(k)\Name = ReadPreferenceString(Str(k)+"Nr","none")
Next
PreferenceGroup("I")
ReadPreferenceString("Time", "120")
ReadPreferenceString("Timeout", "30")
Else
If CreatePreferences("cfg.ini")
PreferenceGroup("Z")
For k = 1 To 10
WritePreferenceString(Str(k)+"Nr", "none")
Next
PreferenceGroup("I")
WritePreferenceString("Time", "120")
WritePreferenceString("Timeout", "30")
EndIf
ClosePreferences()
EndIf
EndProcedure
For k = 1 To 10
Debug MyArray(k)\Name
Next