Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
SaveAsClass and Scatter Name
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Programmation Orientée Object
Divers
Thread ID:
00943238
Message ID:
00943251
Vues:
18
Another point:
- they cannot be distinguished why all return B like AMEMBER's FLAGS;
- the scatter's properties are added like not changed,
the .AddProperty() and ADDPROPERTY() like changed (and this is inconsistent)
CREATE CURSOR SomeTable (cScatterProperty L)
INSERT INTO SomeTable VALUES (.F.)
CLEAR
oBS=NewObject("Custom")
oBS.Addproperty ("cSomeNewProperty",.F.)
Addproperty (m.oBS,"cSomeNewProperty2",.F.)
scatter Name m.oBS ADDITIVE
*oBS.SaveAsClass('\cSomeLib','savedclass')
FOR k=1 TO AMEMBERS(aProp,m.oBS,1,[G#])
		IF LIKE('CS*',aProp[m.k,1])
			? aProp[m.k,1]
			?? PEMSTATUS(m.oBS,aProp[m.k,1],4) AT 30
			?? PEMSTATUS(m.oBS,aProp[m.k,1],0) AT 35
			?? aProp[m.k,2] at 55
			?? aProp[m.k,3] at 70
		ENDIF
NEXT
Fabio
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform