PureBasic Forums - English

Posted: **Sat Mar 25, 2023 3:17 pm**

Hi,

I am not familiary with list. In below code, I use dynamic array that I need to redim as needed. If I want to use list, Please advise how to delare the varibles?

Code: Select all

#MaxSongInDir=1
#MaxDir=1

Structure Songs ; store all songs name in an sub directory (Path$)
  Path$
  SongQty.i
  Array SongName$(#MaxSongInDir)
EndStructure

Structure DirInfos ;  store the song info in an parent directory
  TotalSong.i
  TotalDir.i
  Array DirNo.Songs(#MaxDir)
EndStructure

Global Dim RootDir.DirInfos(2)


ReDim RootDir(1)\DirNo(2)
ReDim RootDir(2)\DirNo(1)\SongName$(3)

Thanks

Allen

Posted: **Sat Mar 25, 2023 3:49 pm**

Like this??

Code: Select all

Structure Songs ; store all songs name in an sub directory (Path$)
  Path$
  SongQty.i
  List SongName$()
EndStructure

Structure DirInfos ;  store the song info in an parent directory
  TotalSong.i
  TotalDir.i
  List DirNo.Songs()
EndStructure

Global NewList RootDir.DirInfos()


AddElement(RootDir())
RootDir()\TotalSong=2
RootDir()\TotalDir=1
AddElement(RootDir()\DirNo())
RootDir()\DirNo()\Path$="C:\"
RootDir()\DirNo()\SongQty=5
AddElement(RootDir()\DirNo()\SongName$())
RootDir()\DirNo()\SongName$()="S1"
AddElement(RootDir()\DirNo()\SongName$())
RootDir()\DirNo()\SongName$()="S2"

Posted: **Sun Mar 26, 2023 1:23 am**

Paul,

Thanks for the example that is I am looking for. I understand list more now.

Thanks.

Allen

PureBasic Forums - English

Use list instead of array

Use list instead of array

Re: Use list instead of array

Re: Use list instead of array