Easy way to perform a dynamic array

[Psychophanta]

This is referred to viewtopic.php?p=105878
This example shows how can be done a dynamically resizeable variable type and its dimensioned array(s) inside.
Probably it is not very fast if top speed required, but it is good for normal apps.

Code: Select all

Structure su
  i.l[0]
EndStructure

*kz.su = AllocateMemory(SizeOf(su))

For t=0 To 300
  *kz.su = ReAllocateMemory(*kz.su,(t+1)*SizeOf(su))
  *kz\i[t]=5+t
  Debug *kz\i[t]
Next

Edit: Updated to PB4.0

[Psychophanta]

Previous code does work for PB4.00, but it does not for PB4.02.
Here is the update for 4.02:

Code: Select all

Structure su 
  i.l[0] 
EndStructure 

kz.su

For t=0 To 300
  kz\i[t]=5+t
  Debug kz\i[t]
Next

nice! doesn't

[Fred]

You're really writing at forbidden place with your second example..

[Kaeru Gaman]

that looks really, really odd for my eyes.

declaring a single variable but using it as a neverending array?
where is memory protection?

when this works, then just because you do not notice how you're shoting your billies....

it's like the famous word:
"I allocate 4 Byte, but write 5 Byte into it. On modern PCs is always enough capacity avaliable, so it will work"

PS:
ok, Fred said it more clearly and less comedian like...

[netmaestro]

What's "shoting your billies"

[Kaeru Gaman]

that was impro...

meaning "overwriting other memory you have 'billed' (allocated) before"

...was an improvisation using my second language in an "artist" way...

[Psychophanta]

You're really writing at forbidden place with your second example..

Pity that the link i refer in 1st post doesn't work. There you said (when PB3.94) that it was safe.
Well, then

Code: Select all

Structure su
  i.l[0]
EndStructure

*kz.su = AllocateMemory(SizeOf(long))

For t=0 To 300
  *kz.su = ReAllocateMemory(*kz.su,(t+1)*SizeOf(long))
  *kz\i[t]=5+t
Next
For t=0 To 300
  Debug *kz\i[t]
Next

[tinman]

You're really writing at forbidden place with your second example..

Pity that the link i refer in 1st post doesn't work. There you said (when PB3.94) that it was safe.

Perhaps it was safe that zero sized arrays in structs would be safe to use for this purpose in the future (i.e PB4 at the time)?

The link looks like it has an extra digit, I tried various combinations but couldn't find the topic.

[Psychophanta]

Hi tinman, you have been offline a lot of months
I believed you dissapeared like Danilo and others

Nah! the link is well written, but i dunno why it doesn't work. It must be lost.

EDIT (2007-10-12): Useless trick, since the invention of ReDim() command:

Code: Select all

Dim kz.l(0); <- use any varible type and/or more than one dimension ;)
For t=0 To 300
  ReDim kz(t)
  kz(t)=5+t
Next
For t=0 To 300
  Debug kz(t)
Next