Dynamic Array Allocation

[kevin]

 Dynamic Array Allocation


    This example shows how we can return allocated arrays from functions.  While an abstract concept, you can use this type of thing to manage blocks of data in arrays.  You can do the same thing with banks, but whatever floats your boat.

    The demo creates and display the constents to 10 dynamically created arrays..

PlayBASIC Code: [Select]

   // Dim an array to hold our dynamically allocated arrays
   Dim Handles(10)

   // Run through and make a bunch fo arrays
   For lp =1 to 10
      Handles(lp)=Make1DArray(rndrange(10,20))
   next
   

   // define an array stub,  which we'll use to look
   // at our allocated arrays
   MakeArray Temp()

   
   For lp =1 to 10
      // Get the array handle and assign to the Temp stub
      // now Temp() points at this array
      Temp()=Handles(lp)

      // run through and make a string of all the values
      // in this array
      s$=""
      for slp=1 to getarrayelements(temp())
        s$+=str$(temp(slp))+","
      next

      // print out the contents of this array
      print trimright$(s$,",")

   next

   Sync
   waitkey
   


// Make a 1D array of random size and fill it full of
// values from 0 - 1000
Function Make1DArray(size)
   Dim Me(size)
   For lp=0 to size
      Me(lp)=rnd(1000)   
   next
EndFunction Me()