Differenze tra le versioni di "Visualizzare l'elenco di tutti gli elementi rilevanti del linguaggio Gambas contenuti dal codice del progetto"

Da Gambas-it.org - Wikipedia.
Riga 13: Riga 13:
 
   s = "Testo qualsiasi."
 
   s = "Testo qualsiasi."
 
    
 
    
   Functio(p)
+
   Visualizza(p)
 
    
 
    
 
  '''End'''
 
  '''End'''
 
   
 
   
 
   
 
   
  '''Private''' Function Functio(po As Pointer)
+
  '''Private''' Procedure Visualizza(po As Pointer)
 
    
 
    
 
   Dim i As Integer
 
   Dim i As Integer

Versione delle 16:55, 28 giu 2018

Se si intende vedere l'elenco di tutti gli elementi rilevanti del linguaggio Gambas contenuti dal codice del progetto, è possibile dereferenziare opportunamente il Puntatore ottenuto dal Metodo "Object.Address( )", nel quale sia stato posto come suo argomento la parola-chiave "Me".
Gli elementi presenti nel codice possono essere anche dichiarati come "Privati".


Mostriamo un semplice esempio pratico:

Public Sub Main()
 
 Dim p As Pointer
 Dim s As String
  
  p = Object.Address(Me)
  
  s = "Testo qualsiasi."
  
  Visualizza(p)
  
End


Private Procedure Visualizza(po As Pointer)
 
 Dim i As Integer
 Dim p1, p2 As Pointer
   
  p1 = Pointer@(po + SizeOf(gb.Pointer) * 5)
  p2 = Pointer@(p1)
  
  For i = 0 To 87
    If Byte@(p2 + i) > 0 Then
      Print Chr(Byte@(p2 + i));
    Else
      Print
    Endif
 Next
  Next
  
End