Public Sub Main()
Dim s As String
Dim i As Integer
Dim p As Pointer
Dim st As Stream
Dim bb As New Byte[4]
' Por supuesto el resultado es "3":'
Print bb.Max
' Pero ahora....
s = "aaaa"
p = VarPtr(s)
st = Memory p For Write
Seek #st, 19
Write #st, 68 As Byte ' D
Write #st, 105 As Byte ' i
Write #st, 109 As Byte ' m
st.Close
' La propiedad del array, que quedó nominalmente ".Max",
' ahora devuelve un numero diferente, es decir "1", aunque no aumentados sus elementos:
Print bb.Max
End
Dim s As String
Dim i As Integer
Dim p As Pointer
Dim st As Stream
Dim bb As New Byte[4]
' Por supuesto el resultado es "3":'
Print bb.Max
' Pero ahora....
s = "aaaa"
p = VarPtr(s)
st = Memory p For Write
Seek #st, 19
Write #st, 68 As Byte ' D
Write #st, 105 As Byte ' i
Write #st, 109 As Byte ' m
st.Close
' La propiedad del array, que quedó nominalmente ".Max",
' ahora devuelve un numero diferente, es decir "1", aunque no aumentados sus elementos:
Print bb.Max
End