Visualizza wikitesto di Assegnare ad un Puntatore la rappresentazione numerica di un indirizzo di memoria contenuto da un altro Puntatore

Come è noto la variabile di tipo ''Puntatore'' contiene l'indirizzo di memoria di una variabile.

Tale indirizzo di memoria è un numero che è facilmente visibile in rappresentazione esadecimale in questo modo:
 '''Public''' Sub Main()
 
  Dim i As Integer
  Dim p As Pointer
 
   i = 999
 
   p = VarPtr(i)
 
   Print p;; CStr(p)
 
 '''End'''
Sappiamo che, per assegnare un'indirizzo di memoria, contenuto da un ''Puntatore'', ad un altra variabile di tipo ''Puntatore'', è sufficiente procedere con un normale assegnamento fra le due variabili ''Puntatore'':
 '''Public''' Sub Main()
 
  Dim i As Integer
  Dim p1, p2 As Pointer
 
   i = 999
 
   p1 = VarPtr(i)
 
   p2 = p1
 
   Print p1;; p2
 
 '''End'''



E' possibile assegnare l'indirizzo di memoria, contenuto da una variabile ''Puntatore'', ad altra variabile ''Puntatore'' anche attraverso la diretta assegnazione della mera ''rappresentazione numerica'' dell'indirizzo di memoria medesimo:
 '''Public''' Sub Main()
 
  Dim i As Integer
  Dim p1, p2 As Pointer
  Dim s As String
 
   i = 999
 
   p1 = VarPtr(i)
 
 <FONT Color=gray>' ''Estrapoliamo il numero dell'indirizzo di memoria nella sua rappresentazione esadecimale:''</font>
   s = Cstr(p1)
 
 <FONT Color=gray>' ''Assegnamo direttamente il numero dell'indirizzo di memoria, dopo averlo convertito in decimale, all'altra variabile di tipo Puntatore:''</font>
   p2 = Val("&" & s)
 
 <FONT Color=gray>' ''Verifichiamo il risultato:''</font>
   Print Int@(p2)
 
 '''End'''