Dynamic Array v.1.2

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|579\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Variables

JL235	Created : 07 December 2006 Edited : 08 December 2006 System : Windows Language : Blitz Dynamic Array v.1.2 Dynamic Arrays in Blitz
I've said this before, 'one of the main problems with Blitz is the lack of dynamic arrays', so I decided just to sit down and create a system of dynamic arrays. There are other implementations I have though of to create these, probably faster, but this is far more stable then other method which is based on resizing arrays. That method may also be far more limiting. It's pretty self explanatory, and no variables need to be created or anything. I started this almost 2 hours ago, and since then fixed it's one major problem. You could only have one dynamic array! Now that is fixed, have 2, have 5, have plenty! Just create the array as a normal global (or local or array) value and then use the 'dynamicArrayAdd' and 'dynamicArrayGet' functions to add and get values. DON'T iterate through the types as it holds internal types within itself as many times as it needs to. This means when you iterate through the dynamic arrays you receive the internal arrays too, as well as the main ones. Use it like a variable not a type. Edit: A Blitz Max variation is planned. ; Dynamic Array ; v.1.2 ; by Joseph Lenton ; ;Don't iterate through the dynamic arrays as they are recieved in the order ;they are created, meaning you may recieve the types in their wrong order. ; the Dynamic Array type Type DynamicArray ; it's stored values Field values[9] ; another array within itself Field internalDynamicArray.DynamicArray End Type ; Dynamic Array Add ; places the value at the field ; Parameter: the dynamic array ; Parameter: value, the value of the field ; Parameter: fieldNumber, the field in the array you adding too Function dynamicArrayAdd(dynamicArray.DynamicArray, value, fieldNumber) ; the armound of times we need to iterate into our array Local fieldTensNumber = Floor(fieldNumber/10.0) ; iterate from 0 to the tens number For i = 0 To fieldTensNumber ; if this type holds the value where we want it stored If i = fieldTensNumber ; we store it dynamicArray\values[fieldNumber-fieldTensNumber10] = value Return ; otherwise if there isn't another type within this one Else If dynamicArray\internalDynamicArray = Null ; we add it dynamicArray\internalDynamicArray = New DynamicArray EndIf ; we then go in one more dynamicArray = dynamicArray\internalDynamicArray Next End Function ; Dynamic Array Get ; returns the value at that field, ; if one is not found 0 will be returned ; Parameter: the dynamic array ; Parameter: fieldNumber, the field in the array you wish to check Function dynamicArrayGet(dynamicArray.dynamicArray, fieldNumber) ; the amount of times we need to iterate into our array Local fieldTensNumber = Floor(fieldNumber/10.0) ; iterate from 0 to the tens number For i = 0 To fieldTensNumber ; if we are in the right type If i = fieldTensNumber ; we return the associated value Return dynamicArray\values[fieldNumber-fieldTensNumber10] ; if there isn't an array next Else If dynamicArray\internalDynamicArray = Null ; we just return 0, there is no value Return 0 ; otherwise Else ; we just go in one more into the dynamic array dynamicArray = dynamicArray\internalDynamicArray EndIf Next End Function ; ------------------------------------------------------------------------------ ; EXAMPLE CODE ; ------------------------------------------------------------------------------ Graphics 640,480,0,2 ; we make a new dynamic array value, just like we would with a normal array Global array1.DynamicArray = New DynamicArray Global array2.DynamicArray = New DynamicArray ; stores multiples of z, to show their storing different numbers For z = 0 To 12 dynamicArrayAdd(array1, z, z) dynamicArrayAdd(array2, z*2, z) Next ; prints out these values For z = 0 To 12 Print "z: " + z Print "array 1: " + dynamicArrayGet(array1, z) Print "array 2: " + dynamicArrayGet(array2, z) Next WaitKey End --v

Comments
Friday, 08 December 2006, 09:18
hyruleknight	EDIT: wrong spot and good work on this
Friday, 08 December 2006, 09:21
Jayenkai	^ it's Blitz.. The other one's BlitzMax.

Comments