Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How can do that declare with VFP?
Message
De
19/07/2006 03:40:10
 
 
À
19/07/2006 02:46:24
Metin Emre
Ozcom Bilgisayar Ltd.
Istanbul, Turquie
Information générale
Forum:
Visual FoxPro
Catégorie:
Fonctions Windows API
Divers
Thread ID:
01137227
Message ID:
01137510
Vues:
15
Hello,

"Type MATH_ACCUM
length As Integer ' # of MATH_INTs
Sign As String * 1 ' "?" means non-numeric, invalid data
pad As String * 1
MInts(1 To 5) As Integer
End Type ' MATH_ACCUM
"
LOCAL lcMathAccum
lcMathAccum = BINTOC(theLenght,"RS") + ; && thelength = some numeric variable 
"?" + ; && or whatever other single char makes sense
" " && another single character ..

&& append MInts array ..
FOR xj = 1 TO theLength
 lcMathAccum = lcMathAccum + BINTOC(theInts[xj],"RS")
ENDFOR

&& pad to full length (26 bytes) if less than 5 MInts were appended ..
lcMathAccum = PADR(lcMathAccum,26,CHR(0))

&& the functioncall ...
Regards
Christian
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform