Как создать подборку (Collection)


firstcollection.png
' Gambas class file

col1 AS NEW Collection
col2 AS NEW Collection

PUBLIC SUB _new()
col1.Add("hallo", 1)
col1.Add(5.7, 2)
col1.Add(876, 3)
col1.Add(TRUE, 4)
'----------------------------------------
col2.Add("hallo", "a")
col2.Add(5.7, "b")
col2.Add(876, "c")
col2.Add(TRUE, "d")
END

PUBLIC SUB Button1_Click()
ltxt AS String
rtxt AS String
'----------------------------------------
IF IsString(col1[1]) THEN
ltxt = ltxt & col1[1] & " is String<br>"
ELSE
ltxt = ltxt & col1[1] & " is no String<br>"
ENDIF
IF IsFloat(col1[2]) THEN
ltxt = ltxt & col1[2] & " is Float<br>"
ELSE
ltxt = ltxt & col1[2] & " is no Float<br>"
ENDIF
IF IsInteger(col1[3]) THEN
ltxt = ltxt & col1[3] & " is Integer<br>"
ELSE
ltxt = ltxt & col1[3] & " is no Integer<br>"
ENDIF
IF IsBoolean(col1[4]) THEN
ltxt = ltxt & col1[4] & " is Boolean<br>"
ELSE
ltxt = ltxt & col1[4] & " is no Boolean<br>"
ENDIF
TextLabel1.Text= ltxt & col1.Count
'----------------------------------------
IF IsString(col2["a"]) THEN
rtxt = rtxt & Str(col2["a"]) & " is String<br>"
ELSE
rtxt = rtxt & Str(col2["a"]) & " is no String<br>"
ENDIF
IF IsFloat(col2["b"]) THEN
rtxt = rtxt & Str(col2["b"]) & " is Float<br>"
ELSE
rtxt = rtxt & Str(col2["b"]) & " is no Float<br>"
ENDIF
IF IsInteger(col2["c"]) THEN
rtxt = rtxt & Str(col2["c"]) & " is Integer<br>"
ELSE
rtxt = rtxt & Str(col2["c"]) & " is no Integer<br>"
ENDIF
IF IsBoolean(col2["d"]) THEN
rtxt = rtxt & Str(col2["d"]) & " is Boolean<br>"
ELSE
rtxt = rtxt & Str(col2["d"]) & " is no Boolean<br>"
ENDIF
TextLabel2.Text= rtxt & col2.Count
END

-- JochenGeorges - 28 Dec 2004