Программирование
Веб программирование

Реализация стека на VB6

 
 

Для тех, кто не знает, что такое стек, прошу: http://ru.wikipedia.org/wiki/Стек

А вот, собственно, сам класс (с совмещенными операциями Peek и Pop):


Private arr() As Long

Public Function Push(ByVal d As Long) As Byte
    On Error GoTo err_point
    Dim a As Integer
    
    a = UBound(arr) + 1
    ReDim Preserve arr(a)
    arr(a) = d
    
    Push = 0
Exit Function
err_point:
    Push = 1
End Function

Public Function Pop(ByRef res As Long) As Byte
On Error GoTo err_point
    res = arr(UBound(arr))
    If UBound(arr) Then
        ReDim Preserve arr(UBound(arr) - 1)
    Else
        Pop = 1
    End If
Exit Function
err_point:
    Pop = 1
End Function

Private Sub Class_Initialize()
    ReDim arr(0)
End Sub

Получилось минималистично, но по делу)


Есть вопросы? Спроси на нашем форуме!!
qpjll-oc [13.07.2019 23:21]

О, браво, браво... Ты только что изобрёл коллекцию.
Нагнись, медаль тебе всуну.



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.