Как создать массив


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