>*-- just messing around with collections > >o=createobject("csnwVector") > >o.dimension(200,65000) >? o.item(1,2) && works, returns 0 >? o(1,2) && fails, the default method does not pass the second param > > >define class csnwVector as Collection >* for large arrays (over the 65000 limit) >* a collection of arrays to provide a place for a >* large vector in Rn >* A cursor would probably work better for this... > >nInitValue = 0 > >function newRow( tnCols ) > local loRow, laVals > loRow = createobject("empty") > addproperty( lorow, [aVals(1)], NULL ) > dimension lorow.aVals(tnCols) > store this.nInitValue to lorow.aVals > return loRow >endfunc > >function dimension( tnRows, tnCols ) > local lnK > for lnK = 1 to tnRows > this.Add( this.newRow( tnCols ) ) > endfor >endfunc > >function item( tnRow,tnCol ) > nodefault > *loRow = dodefault( tnRow ) > *return loRow.aVals(tnCol) >endfunc > >enddefine >