6 lines
177 B
Text
6 lines
177 B
Text
DEFINT A(1 to 4) = {1, 2, 3, 4}
|
|
DEFINT B(1 to 4) = {10, 20, 30, 40}
|
|
|
|
'Append array B to array A
|
|
Redim A(1 to 8) as integer
|
|
MEMCPY(varptr(A(5)), varptr(B(1)), Sizeof(integer)*4)
|