Don't forget Thrak!


>>Correcting...
>>
>> need to create a collection in VFP 8 to simulate the following situation:
>>
>>Albuns(x).AlbumName
>>Albuns(x).ReleaseDate
>>Albuns(x).Artists(y).ArtistName
>>Albuns(x).Musics(z).MusicName
>>Albuns(x).Musics(z).MusicNumber
>>
>>How can I do this?
>
>

>Albuns = CreateObject( "Collection" )
>
>loAlbun = CreateObject( "AlbunClass" )
>loAlbun.AlbumName = "Discipline (Remastered)"
>loAlbun.ReleaseDate = Date(2001,5,1)
>
>loAlbun.Artists = CreateObject( "Collection" )
>
>loAlbun.Musics = CreateObject( "Collection" )
>
>loArtist = CreateObject( "ArtistClass" )
>loArtist.ArtistName = "King Crimson"
>loAlbun.Artists.Add( loArtist )
>
>loMusic = CreateObject( "MusicClass" )
>loMusic.MusicName = "Elephant Talk"
>loMusic.MusicNumber = 1
>loAlbun.Musics.Add( loMusic )
>loMusic = null
>
>loMusic = CreateObject( "MusicClass" )
>loMusic.MusicName = "Frame By Frame"
>loMusic.MusicNumber = 2
>loAlbun.Musics.Add( loMusic )
>loMusic = null
>
>loMusic = CreateObject( "MusicClass" )
>loMusic.MusicName = "Matte Kudasai"
>loMusic.MusicNumber = 3
>loAlbun.Musics.Add( loMusic )
>
>Albuns.Add( loAlbun )
>
>? Albuns(1).AlbumName
>? Albuns(1).ReleaseDate
>? Albuns(1).Artists(1).ArtistName
>? Albuns(1).Musics(1).MusicName
>? Albuns(1).Musics(1).MusicNumber
>? Albuns(1).Musics(2).MusicName
>? Albuns(1).Musics(2).MusicNumber
>? Albuns(1).Musics(3).MusicName
>? Albuns(1).Musics(3).MusicNumber
>
>
>RETURN
>*---------------------
>Define Class AlbunClass as Collection
>   AlbumName = ""
>   ReleaseDate = Date()
>   Artists = null
>   Musics = null
>EndDefine
>
>Define Class ArtistClass as Collection
>   ArtistName = ""
>EndDefine
>
>Define Class MusicClass as Collection
>   MusicName = ""
>   MusicNumber = 0
>EndDefine
>

>
>Hope this helps. Até mais,