Map接口使用的例子:
mdMap 是默认的键值存储。正常情况下,你不应当使用内部类 mdMapEntry,除非在mdMap中使用方法 entrySet()来返回 mdMapEntries mdSet。
mdDictionary 和 mdHashtable 和mdMap 几乎是一样的。
mdProperties 是一个对map的扩展类,mdProperties的键和值的类型总是字符串。(此类还没有完全实现。)
#Include Once "md/util/mdMap.bi"
mdMapDeclare(String, String)
Dim As mdMap(String, String) map
Dim As String temp
temp = map.put("key1", "value1")
temp = map.put("key2", "value2")
temp = map.put("key3", "value3")
Dim As mdSet(String) set = map.keySet()
Dim As String element
ForEach(String, element In set)
Print "key: " & element & " - value: " & map.get(element)
NextEach
Sleep
使用mdIterator的例子:
mdIterator 允许轻松地遍历列表类。此外,它定义一个 ForEach 宏,允许使用类似 Java 的语法。
mdArrayIterator 扩展了 mdIterator 类 ,同样也定义了ForEach 宏。使用它,可以遍历 FreeBASIC 任何类型的数组。
mdEnumeration 跟 mdIterator 几乎一样。大多数时候,您将使用 mdIterator,但在某些场合下,你可能会用到mdEnumerations。
使用mdIterator的例子:
#include once "md/util/mdlist.bi"
mdListDeclare(string) '声明类型
dim list as mdList(string) ‘声明list对象类型
list.add("0")
list.add("1")
list.add("2")
list.add("3")
list.add("4")
list.add("5")
dim as mdIterator(string) it=list.iterator()
'第一次迭代
while it.hasnext()
print it.next()
wend
'第二次迭代
dim element as string
foreach(string,element in list)
print element
nexteach
sleep
mdArrayIterator使用的例子:
#include once "md/util/mdAarrayIterator.bi"
mdAarrayIteratorDclare(string)
dim array(0 to 9)
for i as integer=0 to 9
array(i)=str(i)
next
dim as mdAarrayIterator(string) it=array()
'首次迭代
while it.hasnext()
print it.next()
wend
'第二次迭代
dim element as string
foreach(string,element in array())
print element
nexteach
sleep
mdEnumeration使用的例子:
#include"md/util/mdEnumeration.bi"
mdEnumerationDeclare(string)
dim list as mdList(string)
list.add("0")
list.add("1")
list.add("2")
list.add("3")
list.add("4")
dim as mdenumeration(string) e=list
while e.hasMoreElements()
print e.nextElement
wend
sleep