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

Forum AtoutFox : code un peu spécial : prise 2   

Sujet

rss Flux RSS des derniers messages

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

lun. 31 octobre 2016, 15h59
eddymaue
atoutfox.public.association

code un peu spécial : prise 2


* étude d'une déclaration local d'une variable avec macro & et .
Clear

lo = Createobject('t1')

Set Step On

* =========================================================================
* test 1

maVar = Sys(2015)
Local &maVar.                        && le contenu de maVar est déclaré local

&maVar. = lo

Vartype( &maVar.)
? maVar
? &maVar
? &maVar.
* ? &maVar.name  && erreur
? &maVar..Name
? &maVar..tt2.Name

For i = 1 To 5
 ? &maVar..tt2.tableau[i]
Endfor

* test 1
*==========================================================================
Set Step On

For i = 1 To 5


 maVar = Sys(2015)

 Local &maVar.[5]                        && le contenu de maVar est déclaré local

 &maVar.[i] = lo

 ? Vartype( &maVar.[i])
 ? maVar
 ? &maVar            && (Object)
 && ? &maVar.name && erreur
 ? &maVar.           && (Object)
 ? &maVar.[i]     && (Object)
 * ? &maVar.name  && erreur
 *? &maVar..name  && erreur
 ? &maVar.[i].Name
 ? &maVar.[i].tt2.Name

 For j = 1 To 5
  ? &maVar.[i].tt2.tableau[j]
 Endfor
endfor

* qu'est-ce qui ce passe si on revient sur une variable local antérieure soit la 1
for j = 1 to 5
  ? &maVar.[1].tt2.tableau[j]
endfor

Set Step On




Define Class t1 As Custom
 Add Object tt2 As t2
Enddefine


Define Class t2 As Custom
 Dimension tableau [5]
 tableau[1] = "un"
 tableau[2] = "deux"
 tableau[3] = "trois"
 tableau[4] = "quatre"
 tableau[5] = "cinq"

Enddefine

[b]test[/b]

--
a+ Eddy
Merci de partager avec moi votre immense savoir que je me ferai plaisir
d'absorber... il va de soi que je vais vous en laisser un peu
Politesse et savoir vivre oblige ;0)


Permalink : http://www.atoutfox.org/nntp.asp?ID=0000017937
20 087 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