Code: Alles auswählen
EnableExplicit
Define *pArray, i
Dim arr.i(293)
*pArray = @arr()
CopyMemory(?table, *pArray, 294 * SizeOf(integer))
Debug "**** 1 dims ****"
For i = 0 To 293
Debug "i=" + i + " / Value = " + arr(i)
Next
Dim arr2.i(20, 13)
*pArray = @arr2()
CopyMemory(?table, *pArray, 294 * SizeOf(integer))
Define out.s, row, column
Debug "**** 2 dims ****"
For row = 0 To 20
For column = 0 To 13
Debug "row " + row + " / column = " + column + " / Value = " + arr2(row, column)
Next
Next
DataSection
table:
Data.i 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14
Data.i 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28
Data.i 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42
Data.i 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56
Data.i 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70
Data.i 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84
Data.i 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98
Data.i 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112
Data.i 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126
Data.i 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140
Data.i 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154
Data.i 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168
Data.i 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182
Data.i 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196
Data.i 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210
Data.i 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224
Data.i 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238
Data.i 239, 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252
Data.i 253, 254, 255, 256, 257, 258, 259, 260, 261, 262, 263, 264, 265, 266
Data.i 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 280
Data.i 281, 282, 283, 284, 285, 286, 287, 288, 289, 290, 291, 292, 293, 294