[libreoffice-users] Re: ReDim of a variable of a custom type

Userdefined structs are pointers. You've got to instanciate one new instance
every time you need one and Basic does not support arrays well. 
++++++++++++++++++++++++++++++++
REM test routing
Sub Main
REM load one of my helper libs:
REM globalscope.basiclibraries.loadLibrary("myTools")
x() = Array()
REM input loop
for i = 0 to 9
        ms = StructFactory.getNewMyStruct()
        ms.a = "test_"& i
        ms.c = i + i/100
        ms.d = today()
        myTools.Basic.bas_PushArray(x(), ms)
next
REM output loop
for i = 0 to 9
        y = x(i)
        print y.a, y.b, y.c, y.d
next
End Sub
++++++++++++++++++++++++++++++++++++++
REM myTools.Basic
Sub bas_PushArray(xArray(),vNextElement)
Dim iUB%,iLB%
        iLB = lBound(xArray())
        iUB = uBound(xArray())
        If iLB > iUB then
                iUB = iLB
                redim xArray(iLB To iUB)
        else
                iUB = iUB +1
                redim preserve xArray(iLB To iUB)
        endif
        xArray(iUB) = vNextElement
End Sub
++++++++++++++++++++++++++++++++++
REM module StructFactory
Type MyStruct
        a as String
        b as Boolean
        c as Currency
        d as Date
End Type

Function getNewMyStruct()
        getNewMyStruct = new MyStruct
End Function

--
View this message in context: 
http://nabble.documentfoundation.org/ReDim-of-a-variable-of-a-custom-type-tp3265370p3278666.html
Sent from the Users mailing list archive at Nabble.com.

-- 
For unsubscribe instructions e-mail to: users+help@global.libreoffice.org
Problems? http://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette
List archive: http://listarchives.libreoffice.org/global/users/
All messages sent to this list will be publicly archived and cannot be deleted