ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : Re: Passer une array du objects a libreoffice/openoffice   

Sujet

rss Flux RSS des derniers messages

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

lun. 02 octobre 2017, 16h12
Gregory Adam
Belgique Belgique

atoutfox.public.association

Re: Passer une array du objects a libreoffice/openoffice

Il faut passer par in objet

regarder xx et yy dans le debugger

*_______________________________________________________________________________
function TestArrayPass()

  local arrayObject
  arrayObject = createobject('ArrayPass')
  =addproperty(m.arrayObject, 'tbstps[10]')

  for i = 1 to 10
    arrayObject.tbstps[m.i] = m.i
  endfor

  =addproperty(m.arrayObject, 'tbst[10]')
  for i = 1 to 10
    arrayObject.tbst[m.i] = -m.i
  endfor
  xx = m.arrayObject.GetArray()

  yy  = m.arrayObject.GetNamedArray('tbst')

  assert .f. && debug xx and yy
endfunc
*_______________________________________________________________________________
define class ArrayPass as Relation

function GetArray()
  return @m.this.tbstps
endfunc
function GetNamedArray(arrayname)
  return @m.this.&arrayname
enddefine


Permalink : http://www.atoutfox.org/nntp.asp?ID=0000018479
20 088 messages dans le forum • Liste complète des messages

Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3