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

Подборка подобна массиву, но в подборке вы может сохранять переменные разных типов данных!

Программа

При запуске две подборки (collections) иллюстрируются и заполняются переменными разных типов данных.
Переменные должны быть добавлены в Collection.Add(variable AS variant, key AS String)
В col1 я использовал Integers как ключи, но они интерпретируются как строки!

Для того, чтобы убедиться, что переменные действительно разных типов, их тип данных проверяется перед отображением.

Код:

col1 AS NEW collection
col2 AS NEW collection

STATIC PUBLIC SUB Main()
hForm AS Form
hForm = NEW Fmain
hForm.show()
END

PUBLIC SUB _new()
col1.Add("hello", 1)
col1.Add(5.7, 2)
col1.Add(876, 3)
col1.Add(TRUE, 4)

col2.Add("hello", "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

Исходник

Download