| .REDIM Statement Programming Example. |
|
 QuickSCREEN Details Example Contents Index |
| ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ |
| REDIM Statement Programming Example |
|
| This example shows how to use REDIM to allocate an array of records and |
| then how to free the memory that the records use. |
| |
| TYPE KeyElement |
| Word AS STRING * 20 |
| Count AS INTEGER |
| END TYPE |
| |
| ' Make arrays dynamic. |
| ' $DYNAMIC |
| CLS ' Clear screen |
| ' Allocate an array of records when you need it. |
| REDIM Keywords(100) AS KeyElement |
| Keywords(99).Word = "ERASE" |
| Keywords(99).Count = 2 |
| PRINT "Keyword 99 is "; Keywords(99).Word |
| PRINT "Count is"; Keywords(99).Count |
| ' Free the space taken by Keywords when you're finished. |
| ERASE Keywords |
| END |
| |
| Sample Output |
| |
| Keyword 99 is ERASE |
| Count is 2 |
| |
