here is the code:
Code:
define class myForm as custom
alias = ""
szimbol = ""
procedure setup
alias = "my_alias"
endproc
procedure main
szimbol = "my_szimboL"
endproc
enddefine
procedure _amember
private oForm
private array aRy[2,2]
oForm = createobject("myForm")
amembers(aRy,oForm,1)
for i = 1 to alen(aRy,1)
? iif(!empty(aRy[i,1]),aRy[i,1],""),iif(!empty(aRy[i,2]),aRy[i,2],"")
endfor
running in VFP, and the result:
Code:
ADDOBJECT Method
ADDPROPERTY Method
ALIAS Property
BASECLASS Property
CLASS Property
CLASSLIBRARY Property
COMMENT Property
CONTROLCOUNT Property
CONTROLS Property
DESTROY Event
ERROR Event
HEIGHT Property
HELPCONTEXTID Property
INIT Event
LEFT Property
MAIN Method
NAME Property
NEWOBJECT Method
OBJECTS Property
PARENT Property
PARENTCLASS Property
PICTURE Property
READEXPRESSION Method
READMETHOD Method
REMOVEOBJECT Method
RESETTODEFAULT Method
SAVEASCLASS Method
SETUP Method
SHOWWHATSTHIS Method
SZIMBOL Property
TAG Property
TOP Property
WHATSTHISHELPID Property
WIDTH Property
WRITEEXPRESSION Method
WRITEMETHOD Method
the same in Lianja (with a little modif, since Lianja's amember() has only 2 paremeters:
Code:
define class myForm as custom
alias = ""
szimbol = ""
procedure setup
alias = "my_alias"
endproc
procedure main
szimbol = "my_szimboL"
endproc
enddefine
procedure _amember
private oForm
private array aRy[2,2]
oForm = createobject("myForm")
amembers(aRy,oForm)
for i = 1 to alen(aRy,1)
? iif(!empty(aRy[i,1]),aRy[i,1],""),iif(!empty(aRy[i,2]),aRy[i,2],"")
endfor
and the result:
Bookmarks