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
Miscellaneous
Thread ID:
00839067
Message ID:
00839107
Views:
24
I do need to store the constants to a string because is something that doesn't run inmediatly. It is something I need to store in an array or collection and then process all together something like this

What i am doing is building a screen. I have a method to add lines to the screen first, after the programmer have added all the lines that'll be on the screen then I have another method to display the screen.

it is not this but this is the main idea
Local lnRow, lnCol, lcMess, lcMode
DECLARE arrLines[3,4]
arrLines[1,1]=0
arrLines[1,2]=0
arrLines[1,3]='Fisrt Line'
arrLines[1,4]='WLREVERSE+WLCLEAR'

arrLines[2,1]=1
arrLines[2,2]=0
arrLines[2,3]='Second Line'
arrLines[2,4]='WLNORMAL+WLCLEAR'

arrLines[3,1]=2
arrLines[3,2]=0
arrLines[3,3]='Last Line'
arrLines[3,4]='WLNORMAL+WLFLUSHOUT'

FOR _N = 1 to 3
   lnRow = arrLines[_N,1]
   lnCol = arrLines[_N,2]
   lcMess= arrLines[_N,3]
   lcMode= arrLines[_N,4]
   oRF.Print(lnCol,lnRow,lcMess, &lcMode)
ENDFOR
see what I need?
.......
DO WHILE .T.
      ME.Work()
ENDDO
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform