07-22-2024, 02:34 PM
(07-18-2024, 07:51 PM)Pete Wrote: Cool, This is a good point, and something I can't quite off-hand come up with a reason why a variable can be used to avoid a numerically assigned array duplicate definition error...I don't understand what you're trying to say. It's clear that ReDim y(7) produces an error. Dim y(5) doesn't specify a constant value.
Code: (Select All)
a = 5
b = 7
' This first half assigns a variable to each array and works.
Dim x(a)
For i = 1 To a: Print i; x(i): Next
Print "-----------------"
ReDim x(b)
For i = 1 To b: Print i; x(i): Next
Print "-----------------"
' This second half assigns numbers to the arrays, and errors out at line 15.
Dim y(5)
For i = 1 To a: Print i; x(i): Next
Print "-----------------"
ReDim y(7)
For i = 1 To b: Print i; x(i): Next
That's how it works.
Code: (Select All)
$Console:Only
a = 5
b = 7
' This first half assigns a variable to each array and works.
Dim x(a)
For i = 1 To a: Print i; x(i): Next
Print "-----------------"
ReDim x(b)
For i = 1 To b: Print i; x(i): Next
Print "-----------------"
' This second half assigns numbers to the arrays, and errors out at line 15.
'That's how it works.
y = 5
Dim z(y)
For i = 1 To a: Print i; z(i): Next
Print "-----------------"
ReDim z(b)
For i = 1 To b: Print i; z(i): Next