Welcome to the Lounge

Public Interface iArray(Of someType)
    Event ItemAdded(ByRef Item As someType)

    Sub AddRange(Range() As someType)
    Function Clear() As someType()
    Property Collected() As someType()
    Function Count() As Int64
    Property Item(Index As Int64) As someType

    WriteOnly Property NewItem() As someType
    WriteOnly Property NewItems As someType()
    Property Populated As Boolean
    Function LastIndex() As Int64

End Interface
<Serializable>
Partial Public Class Array(Of SomeType)
    Implements iArray(Of SomeType)

    Private mCollected() As SomeType
    Private mPopulated As Boolean


    Public Event ItemAdded(ByRef Item As SomeType) Implements iArray(Of SomeType).ItemAdded


    Public Property Collected() As SomeType() Implements iArray(Of SomeType).Collected
        Get
            If mCollected Is Nothing Then mCollected = New SomeType() {}
            Return mCollected
        End Get
        Set(value As SomeType())
            mCollected = value
        End Set
    End Property

    Public Sub AddRange(Range() As SomeType) Implements iArray(Of SomeType).AddRange
        Allocate(Collected, Range)
        Populated = True
    End Sub
    Public Shared Function Allocate(ByRef TheArray() As SomeType, ByVal Value As SomeType) As SomeType()
        Return Allocate(TheArray, Value, LastIndexOf(TheArray))
    End Function
    Public Shared Function Allocate(ByRef TheArray() As SomeType, ByVal Values() As SomeType) As SomeType()
        Return Allocate(TheArray, Values, LastIndexOf(TheArray))
    End Function
    Public Shared Function Allocate(ByRef TheArray() As SomeType, ByVal Values() As SomeType, ByRef Index As Int64) As SomeType()
        Try
            For Current As Int64 = 0 To Values.Length - 1
                Allocate(TheArray, Values(Current), Index + Current)
            Next
        Catch
        End Try
        Return TheArray
    End Function
    Public Shared Function Allocate(ByRef TheArray() As SomeType, ByVal Value As SomeType, ByRef Index As Int64) As SomeType()
        Try
            TheArray(Index) = Value
        Catch
            ReDim Preserve TheArray(Index)
            TheArray(Index) = Value
        End Try

        Return TheArray
    End Function
    Public Property Item(Index As Int64) As SomeType Implements iArray(Of SomeType).Item
        Get
            Return Collected(Index)
        End Get
        Set(value As SomeType)
            Allocate(Collected, value, Index)
            Populated = True
        End Set
    End Property
    Public Function Clear() As SomeType() Implements iArray(Of SomeType).Clear
        Clear = Clear(Collected)
        Populated = True
    End Function
    Public Shared Function Clear(ByRef TheArray() As SomeType) As SomeType()
        TheArray = Nothing
        Return TheArray
    End Function
    Public Function Count() As Long Implements iArray(Of SomeType).Count
        Return Collected.Length
    End Function

    Public Overridable WriteOnly Property NewItem() As SomeType Implements iArray(Of SomeType).NewItem
        Set(value As SomeType)
            Allocate(Collected, value)
            Populated = True
        End Set
    End Property
    Public WriteOnly Property NewItems As SomeType() Implements iArray(Of SomeType).NewItems
        Set(values As SomeType())
            Try
                For Each value As SomeType In values
                    NewItem = value
                Next
            Catch
            End Try
        End Set
    End Property
    Public Property Populated As Boolean Implements iArray(Of SomeType).Populated
        Get
            Return mPopulated
        End Get
        Set(value As Boolean)
            mPopulated = value
        End Set
    End Property
    Public Function LastIndex() As Int64 Implements iArray(Of SomeType).LastIndex
        Return LastIndexOf(Collected)
    End Function
    Public Shared Function LastIndexOf(TheArray() As SomeType) As Int64
        Try
            Return TheArray.Length
        Catch
            Return 0
        End Try
    End Function


End Class

Colborne_Greg wrote:

All of my code is self documenting enough that maintenance well never happens because it was written clear and concise to begin with.

Colborne_Greg wrote:

Here is an example of code, with no documentation, lets see if you can figure out what it does.

Colborne_Greg wrote:

and it comes down to that code needing to be maintained that person is gone. Then I go over the code myself and make it generic to last the ages.

Colborne_Greg wrote:

How much does the code structure of SQL changes?

Colborne_Greg wrote:

Code does last for ages, the code that doesn't wasn't written correctly.

Quote:

Code does last for ages, the code that doesn't wasn't written correctly.