Distruggere gli Oggetti che non dispongono il Metodo .Delete()

In Gambas taluni Oggetti, specialmente quelli grafici, posseggono il Metodo ".Delete()" per essere distrutti.

Per poter distruggere, invece, quegli Oggetti che non dispongono del Metodo .Delete() o comunque di altro tipo, è sufficiente assegnare alla variabile del tipo di Oggetto specifico il valore Null.

Mostriamo un esempio pratico utilizzando un Oggetto "Struttura" e un Oggetto "Image":

Public Struct STRUTTURA
  b As Byte
  c As Short
End Struct


Public Sub Main()

 Dim im As Image
 Dim sra As STRUTTURA
 
' Crea un Oggetto "Image":
 im = New Image(100, 100, Color.Red, Image.Standard)
' Verifica l'esistenza dell'Oggetto "Image":
 Print im
' Distrugge l'Oggetto di tipo "Image":
 im = Null
' Verifica:
 Print im

' Crea un Oggetto "Structure":
 sra = New STRUTTURA
' Verifica l'esistenza dell'Oggetto "Structure":
 Print sra
' Distrugge l'Oggetto del tipo della Struttura:
 sra = Null
' Verifica:
 Print sra
 Print sra.b

End