Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Fichiers
Ajouter
Recherche: 
Recherche

struct.zip
Arnon Gal-Oz, Matrix-IT
A Visual FoxPro class to simplify packing and unpacking of structures for use WINAPI functions or other DLLs Code is included (example can be found in the VFUG May 1997 newsletter)
Créé le
Il y a 26 années
Téléchargements
2354
Type de fichier
Résultat de votes
4.50/5.00
General information
URL:
struct.zip
Résultat de votes:
4.50/5.00 (2 rates) Évaluer cet item
Créé par
Arnon Gal-Oz, Matrix-IT

Commentaires
In the Structmember.Init method you'll need to change the code headed * determine whether the property is an array The code : .lIsArray = Type("m.toStruct." + .cProperty + "[1]") != 'U' will always set .lIsArray to True regardless of whether the property is an array or not, in the same way as VFP won't argue if you type in the command window ?_screen.caption[15] The ammended code reads : * determine whether the property is an array * NOTE: in this version, the array dimensions can't change *!* .lIsArray = Type("m.toStruct." + .cProperty + "[1]") != 'U' && doesn't work Local lnEls, lcProperty, lcError, llErr lcProperty = .cProperty llErr = .F. lcError = On('error') On Error llErr = .T. =ALen(m.toStruct.&lcProperty) On Error &lcError. .lIsArray = !llErr * initialize memory array If .lIsArray lnEls = ALen(m.toStruct.&lcProperty) Else lnEls = 1 Endif Dimension .aMemory[m.lnEls, .nMemoryCols] .aMemory = 0 Rhodri Evans, October 30, 2003

Type("_screen.caption(0)") = "C" Also * property exist return .f. .lIsArray = iif(Type("m.toStruct." + .cProperty + "[0]") = 'U',; type("m.toStruct." + .cProperty + "[1]") != 'U',.f.) Eddy Maue, July 25, 2004

Ajouter un commentaire
More downloads created from this member
Data Environment Extractor
Arnon Gal-Oz, Matrix-IT
Creates a prg that contains a data envi.
Créé le
Il y a 28 années
Téléchargements
2299
Type de fichier