Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Why this code doesn't work?
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Re: Why this code doesn't work?
Miscellaneous
Thread ID:
00839067
Message ID:
00839073
Views:
26
Ok. I am sorry because two of you understood the same. so i must be the wrong guy and have to explain a little bit more

lets put it this way i have this method in a class
*:procedure getmode
lparameter lcMode
DIMENSION arrMode(5)
arrMode(1) = 'WLCLEAR'
arrMode(2) = 'WLNORMAL'
arrMode(3) = 'WLREVERSE'
arrMode(4) = 'WLCLREOLN'
arrMode(5) = 'WLFLUSHOUTPUT'

lcModeStr = ''
lcMode	  = STRTRAN(lcMode,'+','')	
FOR lnXYZ = 1 TO LEN(lcMode)
	lnChar = VAL(SUBSTR(lcMode,lnXYZ,1))
	lcModeStr = lcModeStr + arrMode(lnChar) + '+'
ENDFOR 
lcModeStr = LEFT(lcModeStr,LEN(lcModeStr)-1)
in other program i have this
#INCLUDE "WLConstantsFox.h"   && the WLNORMAL, WLREVERSE etc are here

lcMode  = getMode('1+2+5')  && this will return 'WLCLEAR+WLNORMAL+WLFLUSHOUTPUT'
now note that lcMode is a string

here i have to run a method in my com object
*:this should be like oRF.Print(0,0,"just a test",WLCLEAR+WLNORMAL+WLFLUSHOUTPUT)
oRF.Print(0,0,"just a test",&lcMode)
here is where I have the problem some times is WLCLEAR, sometimes is WLREVERESE and so on

hope I made my self a little clearer here
.......
DO WHILE .T.
      ME.Work()
ENDDO
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform