ox = CREATEOBJECT("retarray") z = ox.ra() ?z[3], ALEN(z,1) && Three, 5 DEFINE CLASS retarray as Session DIMENSION arret[5] FUNCTION ra this.arret[1]="One" this.arret[2]="Two" this.arret[3]="Three" this.arret[4]="Four" this.arret[5]="Five" RETURN @this.arret ENDFUNC ENDDEFINE>I'm new to VFP7 and am trying to return an array from a form and have not been able to do so. Can anyone help -- THANKS
>DEFINE CLASS xparameters AS custom >Name = "xparameters" >DIMENSION aparameters[1] > >PROCEDURE Init >LPARAMETERS taParameters > >*** Copy array passed by reference, before it goes out of scope >ACOPY( taParameters, THIS.aParameters ) >ENDPROC >ENDDEFINE >>
>RETURN CREATEOBJECT( 'xParameters', @laMyArray ) >