Android Question For Each with Arrays

[Midimaster]

I defined an array of user type with 99 elements

    Type MusicEventTyp(SoundNr As Int, Volume As Float)
    Private Music(99) As MusicEventTyp

and i filled 10 of them, but not all:

...
    Music(9)= Init(6, 0.9)
...
Sub Init(Nr As Int, Volume As Float) As MusicEventTyp
    Dim loc As MusicEventTyp
    loc.Initialize
    loc.SoundNr=Nr
    loc.volume=Volume
    Return loc
End Sub

now i want to iterate through the initalized ones, but it looks like the loop iterates through all 99:

    For Each loc As MusicEventTyp In Music
        Log("SoundNr" & loc.SoundNr)
    Next

does this mean, that all 99 elements are initialized from the first moment?

As a list is also not possible with user defined types... is there are chance to only iterate through the 10 defined?

 

[LucaMs]

and i filled 10 of them, but not all:

Music(10)= Init(6,4000,2000,0.9)

You filled only the 11th item (index 10).

As a list is also not possible with user defined types

Wrong; a List is almost always the best choice, instead; you should use a List.

 

[LucaMs]

Dim lstMusicEvents As List
lstMusicEvents.Initialize

For i = 0 to 9
    Dim MusicEvent As MusicEventTyp = Init(6,4000,2000,0.9)
    lstMusicEvents.Add(MusicEvent)
Next


For Each MusicEvent As MusicEventTyp In lstMusicEvents
     Log(MusicEvent.SoundNr)
Next

Note that your type is made of two fields, your Init function requires four parameters.

 

[Midimaster]

the mistakes came only from copying the longer code to a essential code for the forum... I corrected it.

I read anywhere in the forum that lists of user defined types are not possible in B4A. I of course would prefer lists!!! So I will try it now and report....

 

[Midimaster]

thank you for your quick answer... it works and it looks much better than the "workaround" solution with array:

    Type MusicEventTyp(SoundNr as Int, Volume As Float)
    Private Music As List
...
    Init(6,0.9)
....

Sub Init(Nr As Int, Volume As Float) As MusicEventTyp
    Dim loc As MusicEventTyp
    loc.Initialize
    loc.SoundNr=Nr
    loc.Volume=Volume
    Music.Add(loc)
End Sub
....

    For Each loc As MusicEventTyp In Music
            Log("SoundNr" & loc.SoundNr)
    Next

 

[agraham]

Sorting Lists of user defined types using List.SortType is extremely useful on occasion and can simplify a program's data structures significantly,