Forum AtoutFox : _vfp.Eval() - curiosité   

• Derniers messages
• Informations

Vous devez vous identifier pour pouvoir poser une question ou répondre.

jeu. 06 juillet 2017, 12h12
Gregory Adam
Belgique
atoutfox.public.association

_vfp.Eval() - curiosité

*_______________________________________________________________________________
function TestVfpEval()

  local objResult1, objResult2, obj
  obj = createobject('TestVfpEval')

  local aa[1], naa

  =m.obj.GetResultObject1(@m.objResult1)
  =m.objResult1.GetArray(@m.aa, @m.naa)
  ?alen(aa) && 1
  ?m.naa    && .T.


  =m.obj.GetResultObject2(@m.objResult2)
  =m.objResult2.GetArray(@m.aa, @m.naa)
  ?alen(aa) && 5
  ?m.naa    && 5


endfunc
*_______________________________________________________________________________
define class TestVfpEval as Relation

function GetResultObject1(obj)
  obj = _vfp.Eval([createobject('TestVfpEvalRelation')])
endfunc
function GetResultObject2(obj)
  obj = createobject('TestVfpEvalRelation')
endfunc
enddefine
*_______________________________________________________________________________
define class TestVfpEvalRelation as Relation
function GetArray(aa, naa)
  external array aa
  naa = 5
  dimension aa[m.naa]
  local i
  for i = 1 to m.naa
    aa[m.i] = m.i
  endfor

enddefine
*_______________________________________________________________________________


Permalink : http://www.atoutfox.org/nntp.asp?ID=0000018328