len-fixed strings

[ReneMiner]

Dim theString as String * 1

So Question is: What will theString contain now?

[Petr Schreiber]

Oh no,

I was so sure it will be $SPC ... but it is $NUL!

Let's undo my mistake by giving some sample code on how to determine ascii value of given string character:

Uses "Console"

Function TBMain()

  Dim theString As String * 1
  Byte asciiValue1
  
  asciiValue1 = Asc(theString)
  PrintL "ASC(s):", asciiValue1

  asciiValue1 = Asc(theString, 1)
  PrintL "ASC(s,1):", asciiValue1
  
  Byte asciiValue2 At StrPtr(theString)
  PrintL "Virtual variable:", asciiValue2

  asciiValue1 = Peek(Byte, StrPtr(theString))
  PrintL "Peek:", asciiValue1
  
  Byte asciiValue3( Len(theString) ) At StrPtr(theString)
  PrintL "Virtual array:", asciiValue3(1)

  PrintL
  PrintL "Press any key to continue..."  
  WaitKey
  
End Function

Petr