SHOW:
|
|
- or go back to the newest paste.
| 1 | type MyData | |
| 2 | redim Arr(0) as integer | |
| 3 | end type | |
| 4 | ||
| 5 | - | redim as MyData MyArray(50) |
| 5 | + | redim as MyData MyArray(30) |
| 6 | ||
| 7 | - | with MyArray(0) |
| 7 | + | sub AddItem( Arr() as integer ) |
| 8 | - | redim .Arr(50) |
| 8 | + | redim Arr(50) |
| 9 | - | end with |
| 9 | + | end sub |
| 10 | ||
| 11 | AddItem( MyArray(0).Arr() ) | |
| 12 | ||
| 13 | print ubound(MyArray(0).Arr) | |
| 14 | sleep | |
| 15 |
