[Gambas-user] Pointer-Memory Question

[Benoît Minisini]

Le 03/02/2012 15:13, Wally a écrit :
>
> What is wrong in this code ?
>
> Public Sub Button1_Click()
>
> Dim f, r As Single
> Dim pPtr As Pointer
> Dim strm As Stream
>
>    f = 1 / 3
>
>    pPtr = Alloc(1, 4)			'alloc 4 * 1 Byte for single
>
>    strm = Memory pPtr For Read Write
>
>    Write #strm, f As Single
>
>    r = Read #strm As Single
>
>    Print f     ' -->  0.3333333
>    Print r     ' -->  1.261169E-44
>
>    Close #strm
>    Free(pPtr)
>
> End
>

The stream pointer goes forward after a Write or a Read. You must use Seek!

-- 
Benoît Minisini