DCGET with string array

[Koverhage]

Why this does not work ?

cStatuscode := "NNNNNNNNNNNN"

DCGET cStatuscode[1] VALID {|| cStatuscode[1] $ 'YJN' }
DCGET cStatuscode[2] VALID {|| cStatuscode[2] $ 'YJN' }
...
up to 12
DCREAD

The content of cStatuscode ist not changed, no matter what i type (e.g. "J " at postion 6 and 7)

[Tom]

This does not work in Xbase++ anyway:

Code: Select all

c := "abc"
? c[2] // "b"
c[2] := "f"
? c // "abc"

[Tom]

Try this:

Code: Select all

cStatuscode := "NNNNNNNNNNNN"
aStatusCode := {}
FOR i := 1 TO Len(cStatusCode)
  aAdd(aStatusCode,cStatusCode[i]
NEXT

DCGET aStatuscode[1] VALID {|| aStatuscode[1] $ 'YJN' }
DCGET aStatuscode[2] VALID {|| aStatuscode[2] $ 'YJN' }
...
DCREAD ...

cStatusCode := ""
FOR i := 1 TO Len(aStatusCode)
  cStatusCode += aStatusCode[i]
NEXT

[Tom]

It works with LOCALs or STATICs:

Code: Select all

LOCAL c := 'abc'
c[2] := 'f'
? c // 'afc'

[rdonnay]

That's interesting. I learned something new.

[Koverhage]

Tom, thank you.

[Tom]