ZBasic Forum

Posted: **06 April 2011, 13:45 PM**

strText=MakeString&#40;MemAddress&#40;SDIn&#41;,inPtnr-1&#41;
	debug.print strText
	SerialRead=strtext
	
	'Doesn't work
	'SerialRead=MakeString&#40;MemAddress&#40;SDIn&#41;,inPtnr-1&#41;

the top bit of code works, (its setting the return value of a function) but naturally uses more storage.

The final line compiles but doesn't return any characters.

Maybe there is a better way - i expect there is, there usually is with my code !

Posted: **06 April 2011, 14:57 PM**

FFMan wrote:The final line compiles but doesn't return any characters.

I can't reproduce the problem here on either a native mode or a VM device using v3.3.0 of the compiler and v3.3.0 of the ZBasic Library. Here is the test case I used:

Code: Select all

Dim s as String
Sub Main&#40;&#41;
   Dim data&#40;1 to 40&#41; as Byte
   Dim i as Integer
   For i = 1 to 10
      data&#40;i&#41; = CByte&#40;i&#41; + Asc&#40;"@"&#41;
   Next i
   Debug.Print "&#91;"; foo&#40;data, 10&#41;; "&#93;"
   s = foo&#40;data, 10&#41;
   Debug.Print "&#91;"; s; "&#93;"
End Sub

Function foo&#40;ByRef byteArray&#40;&#41; as Byte, ByVal cnt as Byte&#41; as String
   foo = MakeString&#40;byteArray.DataAddress, cnt&#41;
End Function

This should produce the output

Code: Select all

&#91;ABCDEFGHIJ&#93;
&#91;ABCDEFGHIJ&#93;

If that's not what you see, let me know which version of the compiler you're using and which ZBasic Library version (if you're using a native mode device). If this works properly, perhaps you can modify it to create a test case that exhibits the problem you're seeing.

Posted: **07 April 2011, 3:35 AM**

ok - so it should work

i'll take a longer look over the weekend, and assuming i don't spot some muppetry in my code, i'll run your test code.

i'll let you know what i find.

thanks

ZBasic Forum

Why doesn't this work ?

Why doesn't this work ?

Re: Why doesn't this work ?