Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9 | Следующая страница реферата

  AFTER = 0

  BEFORE = 0

  Count = 0

End Sub

' Присваивание виртуальному индексу virtualIndex значения realIndex

Private Sub Link(virtualIndex As Integer, realIndex As Integer)

  Refs(virtualIndex) = realIndex

End Sub

' Выделение места для новых элементов

Private Function GetSpace() As Integer

  Dim i As Integer, OldLength As Integer

  If IsListFull Then

    OldLength = UBound(Elems)

    ReDim Preserve Elems(OldLength * 2) 'динамическое увеличение длины

    ReDim Preserve Refs(OldLength * 2)  'списка, если он уже полностью заполнен

    For i = OldLength + 1 To OldLength * 2 - 1 'добавляемые элементы помечаются

        Refs(i) = i + 1                        'как свободное место

    Next i

    Refs(NullFreeSpace) = OldLength + 1

    Refs(OldLength * 2) = NullFreeSpace

  End If

  i = Refs(NullFreeSpace)

  Link NullFreeSpace, Refs(i)

  GetSpace = i

End Function

Рекомендуем скачать другие рефераты по теме: дипломная работа по психологии, рефераты.





Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9 | Следующая страница реферата