Weird error with Read and Data - GameCreators Forum

Author

Message

Madscientist

16

Years of Service

User Offline

Joined: 23rd Aug 2009

Location: Between a rock and a hard place

Posted: 11th Oct 2010 14:29

Link

I'm using data and read to read in data at coordinates into arrays. I got it to work but then suddenly it stopped working. I got this error message.
Failed to 'Calculate DataOffsetAndTypeFromFieldString::pFieldData->GetChar(n)=='.''
Whats wrong?

Function RegisterBlockPos()
   DataTri()
   DataStick()
   DataCube()
   DataZ()
   DataZRev()
   DataL()
   DataLrev()
   
   For t=1 to 7
      For r=1 to 4
         For y=1 to 4
            for x=1 to 4
               Read Bl$(t,r,x,y)
            Next x
         NEXT y
         Read SprOff(t,r).x
         Read SprOff(t,r).y
      Next r
   Next t
Endfunction

Function DataTri()
   //Tri
   DATA "t","1"," "," "
   DATA "1","o1","1"," "
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 2,2
   
   DATA "t","1"," "," "
   DATA " ","o1","1"," "
   DATA " ","1"," "," "
   DATA " "," "," "," "
   
   DATA 2,2
   
   DATA "t"," "," "," "
   DATA "1","o1","1"," "
   DATA " ","1"," "," "
   DATA " "," "," "," "
   
   DATA 2,2
   
   DATA "t","1"," "," "
   DATA "1","o1"," "," "
   DATA " ","1"," "," "
   DATA " "," "," "," "
   
   DATA 2,2
ENDFUNCTION

Function DataStick()
   //Stick
   DATA " "," "," "," "
   DATA "s1","1","1","1"
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 2,2

DATA " ","1"," "," "
   DATA " ","1"," "," "
   DATA " ","1"," "," "
   DATA " ","1"," "," "
   
   DATA 1,1
   
   DATA " "," "," "," "
   DATA "1","1","1","s1"
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 1,4
   
   DATA " ","1"," "," "
   DATA " ","1"," "," "
   DATA " ","1"," "," "
   DATA " ","s1"," "," "
   
   DATA 1,1
ENDFUNCTION

Function DataCube()
   //Cube
   DATA "c1","1"," "," "
   DATA "1","1"," "," "
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 1,1
   
   DATA "1","c1"," "," "
   DATA "1","1"," "," "
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 2,1
   
   DATA "1","1"," "," "
   DATA "1","c1"," "," "
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 2,2
   
   DATA "1","1"," "," "
   DATA "c1","1"," "," "
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 1,2
ENDFUNCTION

Function DataZ()
   //Z
   DATA "Z","1","1"," "
   DATA "1","1"," "," "
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 1,1
   
   DATA "Z1"," "," "," "
   DATA "1","1"," "," "
   DATA " ","1"," "," "
   DATA " "," "," "," "
 
    DATA 1,1
   
   DATA "Z","1","1"," "
   DATA "1","1"," "," "
   DATA " "," "," "," "
   DATA " "," "," "," "

DATA 1,1
   
   DATA "Z1"," "," "," "
   DATA "1","1"," "," "
   DATA " ","1"," "," "
   DATA " "," "," "," "
   
   DATA 1,1
ENDFUNCTION

Function DataZrev()
   //ZRev
   DATA "z1","1"," "," "
   DATA " ","1","1"," "
   DATA " "," "," "," "
   DATA " "," "," "," "

DATA 1,1
      
   DATA "z","1"," "," "
   DATA "1","1"," "," "
   DATA "1"," "," "," "
   DATA " "," "," "," "
   
   DATA 1,1
   
   DATA "z1","1"," "," "
   DATA " ","1","1"," "
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 1,1
   
   DATA "z","1"," "," "
   DATA "1","1"," "," "
   DATA "1"," "," "," "
   DATA " "," "," "," "
   
   DATA 1,1
ENDFUNCTION

Function DataL()
   //L
   DATA "L1"," "," "," "
   DATA "1"," "," "," "
   DATA "1"," "," "," "
   DATA "1","1"," "," "
   
   DATA 1,1
   
   DATA "L1","1","1","1"
   DATA "1"," "," "," "
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 1,1
   
   DATA "L1","1"," "," "
   DATA " ","1"," "," "
   DATA " ","1"," "," "
   DATA " ","1"," "," "
   
   DATA 1,1
   
   DATA "L"," "," ","1"
   DATA "1","1","1","1"
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 1,1
ENDFUNCTION

Function DataLrev()
   //LRev
   DATA "l","1"," "," "
   DATA " ","1"," "," "
   DATA " ","1"," "," "
   DATA "1","1"," "," "  
   
   DATA 1,1

DATA "l1"," "," "," "
   DATA "1","1","1","1"
   DATA " "," "," "," "
   DATA " "," "," "," "  
   
   DATA 1,1
   
   DATA "l1","1"," "," "
   DATA "1"," "," "," "
   DATA "1"," "," "," "
   DATA "1"," "," "," "  
   
   DATA 1,1
   
   DATA "l1","1","1","1"
   DATA " "," "," ","1"
   DATA " "," "," "," "
   DATA " "," "," "," "  
   
   DATA 1,1
ENDFUNCTION

+ Code Snippet

Function RegisterBlockPos()
   DataTri()
   DataStick()
   DataCube()
   DataZ()
   DataZRev()
   DataL()
   DataLrev()
   
   For t=1 to 7
      For r=1 to 4
         For y=1 to 4
            for x=1 to 4
               Read Bl$(t,r,x,y)
            Next x
         NEXT y
         Read SprOff(t,r).x
         Read SprOff(t,r).y
      Next r
   Next t
Endfunction

Function DataTri()
   //Tri
   DATA "t","1"," "," "
   DATA "1","o1","1"," "
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 2,2
   
   DATA "t","1"," "," "
   DATA " ","o1","1"," "
   DATA " ","1"," "," "
   DATA " "," "," "," "
   
   DATA 2,2
   
   DATA "t"," "," "," "
   DATA "1","o1","1"," "
   DATA " ","1"," "," "
   DATA " "," "," "," "
   
   DATA 2,2
   
   DATA "t","1"," "," "
   DATA "1","o1"," "," "
   DATA " ","1"," "," "
   DATA " "," "," "," "
   
   DATA 2,2
ENDFUNCTION

Function DataStick()
   //Stick
   DATA " "," "," "," "
   DATA "s1","1","1","1"
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 2,2

   DATA " ","1"," "," "
   DATA " ","1"," "," "
   DATA " ","1"," "," "
   DATA " ","1"," "," "
   
   DATA 1,1
   
   DATA " "," "," "," "
   DATA "1","1","1","s1"
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 1,4
   
   DATA " ","1"," "," "
   DATA " ","1"," "," "
   DATA " ","1"," "," "
   DATA " ","s1"," "," "
   
   DATA 1,1
ENDFUNCTION

Function DataCube()
   //Cube
   DATA "c1","1"," "," "
   DATA "1","1"," "," "
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 1,1
   
   DATA "1","c1"," "," "
   DATA "1","1"," "," "
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 2,1
   
   DATA "1","1"," "," "
   DATA "1","c1"," "," "
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 2,2
   
   DATA "1","1"," "," "
   DATA "c1","1"," "," "
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 1,2
ENDFUNCTION

Function DataZ()
   //Z
   DATA "Z","1","1"," "
   DATA "1","1"," "," "
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 1,1
   
   DATA "Z1"," "," "," "
   DATA "1","1"," "," "
   DATA " ","1"," "," "
   DATA " "," "," "," "
 
    DATA 1,1
   
   DATA "Z","1","1"," "
   DATA "1","1"," "," "
   DATA " "," "," "," "
   DATA " "," "," "," "

   DATA 1,1
   
   DATA "Z1"," "," "," "
   DATA "1","1"," "," "
   DATA " ","1"," "," "
   DATA " "," "," "," "
   
   DATA 1,1
ENDFUNCTION

Function DataZrev()
   //ZRev
   DATA "z1","1"," "," "
   DATA " ","1","1"," "
   DATA " "," "," "," "
   DATA " "," "," "," "

   DATA 1,1
      
   DATA "z","1"," "," "
   DATA "1","1"," "," "
   DATA "1"," "," "," "
   DATA " "," "," "," "
   
   DATA 1,1
   
   DATA "z1","1"," "," "
   DATA " ","1","1"," "
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 1,1
   
   DATA "z","1"," "," "
   DATA "1","1"," "," "
   DATA "1"," "," "," "
   DATA " "," "," "," "
   
   DATA 1,1
ENDFUNCTION

Function DataL()
   //L
   DATA "L1"," "," "," "
   DATA "1"," "," "," "
   DATA "1"," "," "," "
   DATA "1","1"," "," "
   
   DATA 1,1
   
   DATA "L1","1","1","1"
   DATA "1"," "," "," "
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 1,1
   
   DATA "L1","1"," "," "
   DATA " ","1"," "," "
   DATA " ","1"," "," "
   DATA " ","1"," "," "
   
   DATA 1,1
   
   DATA "L"," "," ","1"
   DATA "1","1","1","1"
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 1,1
ENDFUNCTION

Function DataLrev()
   //LRev
   DATA "l","1"," "," "
   DATA " ","1"," "," "
   DATA " ","1"," "," "
   DATA "1","1"," "," "  
   
   DATA 1,1

   DATA "l1"," "," "," "
   DATA "1","1","1","1"
   DATA " "," "," "," "
   DATA " "," "," "," "  
   
   DATA 1,1
   
   DATA "l1","1"," "," "
   DATA "1"," "," "," "
   DATA "1"," "," "," "
   DATA "1"," "," "," "  
   
   DATA 1,1
   
   DATA "l1","1","1","1"
   DATA " "," "," ","1"
   DATA " "," "," "," "
   DATA " "," "," "," "  
   
   DATA 1,1
ENDFUNCTION

My computer surpasses all the technologies of the day. What computer do I have?

+ Code Snippet

My Brain

Back to top

Profile PM

Silverman

19

Years of Service

User Offline

Joined: 18th Jan 2007

Location: France

Posted: 11th Oct 2010 15:16 Edited at: 11th Oct 2010 15:17

Link

hi,

I tested your function with the code:

+ Code Snippet


rem

TYPE my_type
   x
   y
ENDTYPE
DIM sproff(7,4) AS my_type

DIM Bl$(7,4,4,4)


RegisterBlockPos()


wait key

END

and I did not get an error.

@+

AMD Athlon(tm)XP 3200+ (2.2GHz) / DDR pc3200 (3x1024Mo) / Nvidia 6800GT (driver 197.45 WHQL)/ XP Pro SP3 / DirectX 9.0c (February 2010)/ DBClassic v1.2 / DBPro v7.4

Back to top

Profile PM

sladeiw

17

Years of Service

User Offline

Joined: 16th May 2009

Location: UK

Posted: 11th Oct 2010 15:35 Edited at: 11th Oct 2010 22:20

Link

Have you any other data statements in your program? You don't need to execute data statements to make them available. There is an internal pointer that points at the first data statement when your program start. Each time you `read` some data, the pointer moves to the next available data. So, something like this:

Function RegisterBlockPos()
   restore startdata
   
   For t=1 to 7
      For r=1 to 4
         For y=1 to 4
            for x=1 to 4
               Read Bl$(t,r,x,y)
            Next x
         NEXT y
         Read SprOff(t,r).x
         Read SprOff(t,r).y
      Next r
   Next t
EndFunction

startdata:
   //Tri
   DATA "t","1"," "," "
   DATA "1","o1","1"," "
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 2,2
   
   DATA "t","1"," "," "
   DATA " ","o1","1"," "
   DATA " ","1"," "," "
   DATA " "," "," "," "
   
   DATA 2,2
   
   DATA "t"," "," "," "
   DATA "1","o1","1"," "
   DATA " ","1"," "," "
   DATA " "," "," "," "
   
   DATA 2,2
   
   DATA "t","1"," "," "
   DATA "1","o1"," "," "
   DATA " ","1"," "," "
   DATA " "," "," "," "
   
   DATA 2,2

//Stick
   DATA " "," "," "," "
   DATA "s1","1","1","1"
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 2,2

DATA " ","1"," "," "
   DATA " ","1"," "," "
   DATA " ","1"," "," "
   DATA " ","1"," "," "
   
   DATA 1,1
   
   DATA " "," "," "," "
   DATA "1","1","1","s1"
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 1,4
   
   DATA " ","1"," "," "
   DATA " ","1"," "," "
   DATA " ","1"," "," "
   DATA " ","s1"," "," "
   
   DATA 1,1

//Cube
   DATA "c1","1"," "," "
   DATA "1","1"," "," "
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 1,1
   
   DATA "1","c1"," "," "
   DATA "1","1"," "," "
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 2,1
   
   DATA "1","1"," "," "
   DATA "1","c1"," "," "
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 2,2
   
   DATA "1","1"," "," "
   DATA "c1","1"," "," "
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 1,2

//Z
   DATA "Z","1","1"," "
   DATA "1","1"," "," "
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 1,1
   
   DATA "Z1"," "," "," "
   DATA "1","1"," "," "
   DATA " ","1"," "," "
   DATA " "," "," "," "
 
    DATA 1,1
   
   DATA "Z","1","1"," "
   DATA "1","1"," "," "
   DATA " "," "," "," "
   DATA " "," "," "," "

DATA 1,1
   
   DATA "Z1"," "," "," "
   DATA "1","1"," "," "
   DATA " ","1"," "," "
   DATA " "," "," "," "
   
   DATA 1,1

//ZRev
   DATA "z1","1"," "," "
   DATA " ","1","1"," "
   DATA " "," "," "," "
   DATA " "," "," "," "

DATA 1,1
      
   DATA "z","1"," "," "
   DATA "1","1"," "," "
   DATA "1"," "," "," "
   DATA " "," "," "," "
   
   DATA 1,1
   
   DATA "z1","1"," "," "
   DATA " ","1","1"," "
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 1,1
   
   DATA "z","1"," "," "
   DATA "1","1"," "," "
   DATA "1"," "," "," "
   DATA " "," "," "," "
   
   DATA 1,1

//L
   DATA "L1"," "," "," "
   DATA "1"," "," "," "
   DATA "1"," "," "," "
   DATA "1","1"," "," "
   
   DATA 1,1
   
   DATA "L1","1","1","1"
   DATA "1"," "," "," "
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 1,1
   
   DATA "L1","1"," "," "
   DATA " ","1"," "," "
   DATA " ","1"," "," "
   DATA " ","1"," "," "
   
   DATA 1,1
   
   DATA "L"," "," ","1"
   DATA "1","1","1","1"
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 1,1

//LRev
   DATA "l","1"," "," "
   DATA " ","1"," "," "
   DATA " ","1"," "," "
   DATA "1","1"," "," "  
   
   DATA 1,1

DATA "l1"," "," "," "
   DATA "1","1","1","1"
   DATA " "," "," "," "
   DATA " "," "," "," "  
   
   DATA 1,1
   
   DATA "l1","1"," "," "
   DATA "1"," "," "," "
   DATA "1"," "," "," "
   DATA "1"," "," "," "  
   
   DATA 1,1
   
   DATA "l1","1","1","1"
   DATA " "," "," ","1"
   DATA " "," "," "," "
   DATA " "," "," "," "  
   
   DATA 1,1

+ Code Snippet

Function RegisterBlockPos()
   restore startdata
   
   For t=1 to 7
      For r=1 to 4
         For y=1 to 4
            for x=1 to 4
               Read Bl$(t,r,x,y)
            Next x
         NEXT y
         Read SprOff(t,r).x
         Read SprOff(t,r).y
      Next r
   Next t
EndFunction


   startdata:
   //Tri
   DATA "t","1"," "," "
   DATA "1","o1","1"," "
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 2,2
   
   DATA "t","1"," "," "
   DATA " ","o1","1"," "
   DATA " ","1"," "," "
   DATA " "," "," "," "
   
   DATA 2,2
   
   DATA "t"," "," "," "
   DATA "1","o1","1"," "
   DATA " ","1"," "," "
   DATA " "," "," "," "
   
   DATA 2,2
   
   DATA "t","1"," "," "
   DATA "1","o1"," "," "
   DATA " ","1"," "," "
   DATA " "," "," "," "
   
   DATA 2,2

   //Stick
   DATA " "," "," "," "
   DATA "s1","1","1","1"
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 2,2

   DATA " ","1"," "," "
   DATA " ","1"," "," "
   DATA " ","1"," "," "
   DATA " ","1"," "," "
   
   DATA 1,1
   
   DATA " "," "," "," "
   DATA "1","1","1","s1"
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 1,4
   
   DATA " ","1"," "," "
   DATA " ","1"," "," "
   DATA " ","1"," "," "
   DATA " ","s1"," "," "
   
   DATA 1,1


   //Cube
   DATA "c1","1"," "," "
   DATA "1","1"," "," "
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 1,1
   
   DATA "1","c1"," "," "
   DATA "1","1"," "," "
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 2,1
   
   DATA "1","1"," "," "
   DATA "1","c1"," "," "
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 2,2
   
   DATA "1","1"," "," "
   DATA "c1","1"," "," "
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 1,2


   //Z
   DATA "Z","1","1"," "
   DATA "1","1"," "," "
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 1,1
   
   DATA "Z1"," "," "," "
   DATA "1","1"," "," "
   DATA " ","1"," "," "
   DATA " "," "," "," "
 
    DATA 1,1
   
   DATA "Z","1","1"," "
   DATA "1","1"," "," "
   DATA " "," "," "," "
   DATA " "," "," "," "

   DATA 1,1
   
   DATA "Z1"," "," "," "
   DATA "1","1"," "," "
   DATA " ","1"," "," "
   DATA " "," "," "," "
   
   DATA 1,1


   //ZRev
   DATA "z1","1"," "," "
   DATA " ","1","1"," "
   DATA " "," "," "," "
   DATA " "," "," "," "

   DATA 1,1
      
   DATA "z","1"," "," "
   DATA "1","1"," "," "
   DATA "1"," "," "," "
   DATA " "," "," "," "
   
   DATA 1,1
   
   DATA "z1","1"," "," "
   DATA " ","1","1"," "
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 1,1
   
   DATA "z","1"," "," "
   DATA "1","1"," "," "
   DATA "1"," "," "," "
   DATA " "," "," "," "
   
   DATA 1,1


   //L
   DATA "L1"," "," "," "
   DATA "1"," "," "," "
   DATA "1"," "," "," "
   DATA "1","1"," "," "
   
   DATA 1,1
   
   DATA "L1","1","1","1"
   DATA "1"," "," "," "
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 1,1
   
   DATA "L1","1"," "," "
   DATA " ","1"," "," "
   DATA " ","1"," "," "
   DATA " ","1"," "," "
   
   DATA 1,1
   
   DATA "L"," "," ","1"
   DATA "1","1","1","1"
   DATA " "," "," "," "
   DATA " "," "," "," "
   
   DATA 1,1


   //LRev
   DATA "l","1"," "," "
   DATA " ","1"," "," "
   DATA " ","1"," "," "
   DATA "1","1"," "," "  
   
   DATA 1,1

   DATA "l1"," "," "," "
   DATA "1","1","1","1"
   DATA " "," "," "," "
   DATA " "," "," "," "  
   
   DATA 1,1
   
   DATA "l1","1"," "," "
   DATA "1"," "," "," "
   DATA "1"," "," "," "
   DATA "1"," "," "," "  
   
   DATA 1,1
   
   DATA "l1","1","1","1"
   DATA " "," "," ","1"
   DATA " "," "," "," "
   DATA " "," "," "," "  
   
   DATA 1,1

I too ran your code and as far as I can see, everything reads into the correct variable. But if you have other data statements then it may be reading values from there and causing your error.

Is that error actually generated when you read the data statements? Because even if I changed the data to the wrong expected type it still read them without an error. (Just resulting in zero or blank string)

Back to top

Profile PM

Grog Grueslayer

Valued Member

21

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 11th Oct 2010 17:56

Link

Having DATA in functions doesn't work. If you want to separate the sections (like you had in the functions) use labels for each section and use the RESTORE command the way Sladeiw has with startdata:. All RESTORE does is tells Darkbasic that you want to start reading DATA from that label.

Back to top

Profile PM Email

Madscientist

16

Years of Service

User Offline

Joined: 23rd Aug 2009

Location: Between a rock and a hard place

Posted: 11th Oct 2010 20:02

Link

There is no more Data statements in the program other than the ones I posted in the code. I get the error even without exectuting the read statements and the data statements so the problem might be elsewhere. Has anyone else gotten this error befor?

My computer surpasses all the technologies of the day. What computer do I have?

+ Code Snippet

My Brain

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Weird error with Read and Data