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

End Function

'вернуть количество элементов в списке

Function GetCount() As Integer

  GetCount = Count

End Function

' определить, есть ли свободное место в списке

Private Function IsListFull() As Boolean

  IsListFull = False

  If Refs(NullFreeSpace) = NullFreeSpace Then IsListFull = True

End Function

' передвинуть указатель на один элемент списка

Sub MoveNext()

  AFTER = BEFORE

  BEFORE = Refs(BEFORE)

End Sub

' передвинуть указатель в начало списка

Sub MoveFront()

  AFTER = 0

  BEFORE = Refs(NullElem)

End Sub

' определить, находится ли указатель в конце списка

Function IsEndOfList() As Boolean

  IsEndOfList = False

  If Refs(AFTER) = NullElem Then IsEndOfList = True

End Function

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





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