DO FORM frmlookup TO laLookup
************************************************** *-- Class: xparameters (e:\books\tipsbook\ch02\ch02.vcx) *-- ParentClass: line *-- BaseClass: line *-- Time Stamp: 08/14/99 01:41:13 PM * DEFINE CLASS xparameters AS LINE HEIGHT = 17 WIDTH = 100 NAME = "xparameters" *-- An array to hold the return values DIMENSION aparameters[1] PROCEDURE INIT LPARAMETERS taArray ACOPY(taArray, THIS.aparameters) ENDPROC ENDDEFINE * *-- EndDefine: xparameters **************************************************In order to return the array, all you need is a single like of code:
RETURN CREATOBJECT( 'xParameters', @laArray )
