Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How can do that declare with VFP?
Message
From
19/07/2006 03:40:10
 
 
To
19/07/2006 02:46:24
Metin Emre
Ozcom Bilgisayar Ltd.
Istanbul, Turkey
General information
Forum:
Visual FoxPro
Category:
Windows API functions
Miscellaneous
Thread ID:
01137227
Message ID:
01137510
Views:
14
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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform