Using text arrays

[rosslcs]

I an trying to print text from an array with the use of the following code...

OPENCONSOLE
DEF name$[30]:ISTRING

name$[1] = "John"
name$[2] = "Mark"

PRINT name$ (1)

PRINT "Press any key to close"
DO:UNTIL INKEY$ <> ""
CLOSECONSOLE
END

However I am getting an error with the PRINT name$ (1)
section of the program.

If there a correct way to use the PRINT name$ (1) array?

[Larry McCaughn]

Your code appears to be trying to print the single name stored in element #1
The error is you are using (1) instead of [1].

The following code contains a loop to print the contents of all the elements of the array.
Hope this helps.

Code: [Select]


OPENCONSOLE
DEF name$[30]:ISTRING
DEF x:INT
name$[0] = "Sally"
name$[1] = "John"
name$[2] = "Mark"
name$[29] = "Me"
 
FOR x = 0 TO 29
  IF  name$ (x)  = ""
     PRINT "..."
  ELSE   
     PRINT name$ [x]
  ENDIF
PRINT "Press any key to close"
DO:UNTIL INKEY$ <> ""
CLOSECONSOLE
END


[rosslcs]

Thanks for the code example. The array works fine using []
but the example only shows "SJM" instead of "Sally John Mark" when run.

[Larry McCaughn]

My bad.
DEF name$[30]:ISTRING doesn't define an array of strings.
It defines a single string of 30 characters.
change that definition to
DEF name$[30]:STRING 
and it should work correctly.
 

[GWS]

Hi,

Istrings are weird .. being arrays themselves.

So using an array of them is a bit strange.

Here's an example ..

Code: [Select]

OPENCONSOLE

' define an array of 10 Istrings of 20 chars each   
' defined as names[ number_of_strings, chars_per_string ]

def names[10,20]:ISTRING   
 
' assigned as names[ first_char, index_of_strings ]
 
names[0,0] = "John Smith"   
names[0,1] = "Sam Stone"

' calling ...
c$ = names[0,0]
d$ = names[0,1]
print c$
print d$   

print:print "Press Any Key"
DO:UNTIL INKEY$ <> ""

CLOSECONSOLE
END

Don't forget that arrays are zero based.

best wishes,

Graham

[rosslcs]

Thanks for your advice on using Istrings array.