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+h...@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
