#include "protheus.ch"
class TesteReflection
public method new()
public method new2()
public method new3()
public data data1
public data data2
public data data3
endclass
method new() class TesteReflection
return self
method new2() class TesteReflection
return self
method new3() class TesteReflection
return self
main function TTECI_204
local i
local retMethods := TesteReflection():TGetMethods()
local retData := TesteReflection():TGetData()
conout("methods")
conout(retMethods[1])
conout(retMethods[2])
conout(retMethods[3])
conout("data")
conout(retData[1])
conout(retData[2])
conout(retData[3])
return
|