声明了一个动态数组为String型,怎样添加、删除、全部清除其中对象?

Question

Dim StrStr() As String
Dim str1 As String
Dim str2 As String
str1 = "mystr1"
str2 = "mystr2"怎样把这两个成员加入到StrStr数组？怎样删掉一个？怎样全清除?

Answer 1

ReDim Preserve StrStr(1 to 2) as String
StrStr(1)=str1
StrStr(2)=str2
删除一个
icount=UBound（StrStr）
        For i = iDel to  PkgCount - 1
            StrStr(i) = StrStr(i + 1)
        Next i
        ReDim Preserve gShipment.Pkg(1 To icount- 1) As String
清除：ReDim StrStr（1 to 1）

Answer 2

Ubound在数组未初始化时是非法的。
目前除了加个计数器外没找到好的实现办法来知道数组是空的。
有请跟帖。

Answer 3

好像在没有初始化时用 Ubound() 得到的结果也是 0，这个和数组中只有一个元素时没有区别，似乎只有加个计数器。

Answer 4

Dim StrStr() As String
Dim str1 As String
Dim str2 As String
'都以0为数组下限
redim strstr(0)
str1 = "mystr1"
str2 = "mystr2"
dim icount as integer'个数
icount =1
redim strstr(icount)
strstr(0)=str1
strstr(1)=str2
'删除一个，这从上标开始
ReDim Preserve strstr(unbound(strstr)-1)'Preserve 会保留数组中的值
‘全删除
redim strstr(0)