How to make an Array


array.png
' Gambas class file

arStr AS String[]

PUBLIC SUB _new()
  i AS Integer
  arStr = NEW String[]
  '$arStr = NEW String[5] 
  'does NOT work!
  FOR i = 0 TO 4
    arStr.Add(Str(i))
  NEXT
  arStr[3] = " hello"
END

PUBLIC SUB Button1_Click()
  i AS Integer
  txt AS String
  FOR i = 0 TO 4
    txt = txt & arStr[i]
  NEXT
  TextLabel1.Text = txt 
END

-- JochenGeorges - 28 Dec 2004