Desde este mi mensaje podemos ver y comprender lo que hace efectivamente (o sea: lo que hace en la Estructura "CARRAY") el metodo .Clear de un Array:
Public Sub Main()
Dim lista As Short[] = [10, 20, 30, 40, 50]
Dim p, p2 As Pointer
Dim st As Stream
Dim j, b As Byte
p = Object.Address(lista)
st = Memory p For Read
For j = 0 To 39
Read #st, b
Print j;; Hex(b, 2)
Next
st.Close
Print
Print
p2 = Pointer@(p + 32)
st = Memory p2 For Read
For j = 0 To 9
Read #st, b
Print j;; b
Next
st.Close
Print "''''''''''''''''''''''''''''''''''''''''''''''''"
Print
Print " despues lista.Clear\n"
lista.Clear
p = Object.Address(lista)
st = Memory p For Read
For j = 0 To 39
Read #st, b
Print j;; Hex(b, 2)
Next
st.Close
Print
Print
p2 = Pointer@(p + 32)
st = Memory p2 For Read
For j = 0 To 9
Read #st, b
Print j;; b
Next
st.Close
End
Dim lista As Short[] = [10, 20, 30, 40, 50]
Dim p, p2 As Pointer
Dim st As Stream
Dim j, b As Byte
p = Object.Address(lista)
st = Memory p For Read
For j = 0 To 39
Read #st, b
Print j;; Hex(b, 2)
Next
st.Close
p2 = Pointer@(p + 32)
st = Memory p2 For Read
For j = 0 To 9
Read #st, b
Print j;; b
Next
st.Close
Print "''''''''''''''''''''''''''''''''''''''''''''''''"
Print " despues lista.Clear\n"
lista.Clear
p = Object.Address(lista)
st = Memory p For Read
For j = 0 To 39
Read #st, b
Print j;; Hex(b, 2)
Next
st.Close
p2 = Pointer@(p + 32)
st = Memory p2 For Read
For j = 0 To 9
Read #st, b
Print j;; b
Next
st.Close
End
Al otro lado de la pantalla
