How do I declare & use array properties in a class?

[SteveDee]

I know I'm still locked into my old VB.Classic mind set, but how should you code for array properties in a class?

In VB I would do something like this:-

Code:

Dim mstrContactName(100)as string

Public Property Get strContactName(ByVal lngIndex As Long) As String

    strContactName = mstrContactName(lngIndex)

End Property

Private Property Let strContactName(ByVal lngIndex As Long, ByVal strNew As String)

    mstrContactName(lngIndex) = strNew

End Property

But in Gambas you can't pass variables to a Property. So I have to result to using a method like this:-

Code:

PUBLIC FUNCTION GetContactName(lngIndex AS Long) AS String
 
  RETURN strContact[lngIndex]
 
END

PUBLIC FUNCTION LetContactName(lngIndex AS Long, strNew as String) AS String
 
  strContact[lngIndex] = strNew
 
END

So my question: Is there a better way?

[enricopallawitschini]

Just declare Property as String[]!?

Like:

Property Something as String[]

Private $Something as String[]
PUBLIC FUNCTION Something_Read() AS String[]
 
  RETURN $Something
 
END

PUBLIC SUB Something_Write(Value as String[])
 
  $Something=Value = strNew
 
END


And from Outside just use it like an array(which it is).

MyClass.Something.Add(Value,Index)
MyString=MyClass.Something[index]