Welcome to the Lounge

Eddy Vluggen wrote:

rjmoses wrote:

2) The language should be portable.

It's not the language that decides on what platforms it will be
implemented. VB6 will never appear on Linux without starting a major
war.
 

Eddy Vluggen wrote:

A decent C# class uses less characters to convey the same info as written in Object Pascal. Less characters to convey the same info - do you really need a "begin" and an "end" block?

 

snorkie wrote:

not using Visual Studio is a choice

snorkie wrote:

the best tools

snorkie wrote:

If it was easy, everybody could it it!

snorkie wrote:

And before going off on costs, there are free versions of VS.

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.