-
Notifications
You must be signed in to change notification settings - Fork 214
Expand file tree
/
Copy patharray16.prg
More file actions
71 lines (45 loc) · 1.03 KB
/
array16.prg
File metadata and controls
71 lines (45 loc) · 1.03 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
// Harbour multidimensional arrays support
PROCEDURE Main()
LOCAL a := { 100, 200, "Third" }
LOCAL b := Array( 8832 )
? ValType( a )
? ValType( { "A" } )
AAdd( a, "new element" )
? Len( a )
? a[ 1 ]
? a[ 2 ]
? a[ 3 ]
? a[ 4 ]
? ATail( a )
a[ 3 ] := { "this", { "seems", "to", { "work", "so", "well" } } }
? a[ 3 ][ 2 ][ 3 ][ 1 ] // "work"
a[ 3, 2 ][ 3, 1 ] := "Harbour power!" // different ways to specify the indexes
? a[ 3, 2, 3, 1 ]
? ValType( b )
? Len( b )
b[ 8832 ] := "Harbour"
? b[ 8832 ]
? ATail( b )
ASize( b, 200 )
? Len( b )
b[ 100 ] := 10
Test( b[ 100 ]++ )
? b[ 100 ]
b[ 100 ] := 10
Test( ++b[ 100 ] )
? b[ 100 ]
b := { 1, { 2, { 4, 5 } } }
Test( b[ 2 ][ 2 ][ 1 ]++ )
? b[ 2 ][ 2 ][ 1 ]
b[ 2 ][ 2 ][ 1 ] := 2
Test( ++b[ 2 ][ 2 ][ 1 ] )
? b[ 2 ][ 2 ][ 1 ]
ReleaseTest()
RETURN
FUNCTION Test( n )
? n
RETURN NIL
FUNCTION ReleaseTest()
LOCAL a := { 1, 2, 3 }
HB_SYMBOL_UNUSED( a )
RETURN NIL