PROTECTED PROCEDURE Init * Create error collection *This.oErrors = CREATEOBJECT("Collection") This.oErrors = NEWOBJECT("Collection", "Collection4Vfp6.fxp")
* Collection4Vfp6.prg DEFINE CLASS Collection AS Custom Name = "Collection" DIMENSION aCollection[1] Count = 0 FUNCTION Add(tvValue) This.Count = This.Count + 1 DIMENSION This.aCollection[This.Count] This.aCollection[This.Count] = tvValue ENDFUNC FUNCTION Remove(tnIndex) DIMENSION This.aCollection[1] This.Count = 0 ENDFUNC FUNCTION Item(tnIndex) RETURN This.aCollection[tnIndex] ENDFUNC ENDDEFINE