Code

FUNCTION Start() AS VOID

LOCAL a[10]

LOCAL b[10][20] AS USUAL // AS USUAL is optional for non-DIM arrays

LOCAL c AS INT

LOCAL d AS STRING

LOCAL e AS USUAL

a[1] := 1

a[2] := 25.23

a[3] := "Hello World"

a[4] := Today()

a[6] := FALSE

? a, a[1], a[2], a[3], a[4], a[5], a[6]

a[5] := 10

b[7][9] := "Hello world"

BEGIN SEQUENCE

   c := b[7][9] // assign string into int

RECOVER USING e

   ? "Error is", e

END SEQUENCE

c := a[5]

? c

d := b[7][9]

? d

BEGIN SEQUENCE

   ? a[5,5] // invalid array element, a only has 1 dimension

RECOVER USING e

   ? "Error is", e

END SEQUENCE

a := b // now a is the same array as b, the original array in a is gone

? a[5,5] // invalid array element, a only has 1 dimension

b[5,5] := "Wow" // assignment to b's array affects a's because they're the same array reference

? a[5,5]

RETURN

 

 Print  
Copyright 2012 GrafX Software DevelopmentTerms Of UsePrivacy Statement     Login