SuperStrict


Local a:TMyTestbed = New TMyTestbed
Local b:Int = HandleFromObject(a)


Local c:TMyTestbed = TMyTestbed(HandleToObject(b))
Print "Object a: "+(a<>Null)
Print "Object c: "+(c<>Null)
Print "b:"+b

Release b
c:TMyTestbed = TMyTestbed(HandleToObject(b))
Print "Object a: "+(a<>Null)
Print "Object c: "+(c<>Null)
Print "b:"+b



a = Null
c:TMyTestbed = TMyTestbed(HandleToObject(b))
Print "Object a: "+(a<>Null)
Print "Object c: "+(c<>Null)
Print "b:"+b

GCCollect()
End


Type TMyTestbed
   Field name:String = "hallo"
   
   Method Delete()
      Print "Testbed deleted"
   End Method
End Type

'vorher
GCCollect()
Print GCMemAlloced()


Main() 'Zeugs machen

'nachher
Rem
Normalerweise würde ich das nicht schreiben: Der GC läuft automatisch.
Allerdings möchte ich, dass er genau jetzt nachschaut ob es was zu bereinigen gibt,
da ich nachher ja GCMemAlloced() aufrufe.
End Rem
GCCollect()
Print GCMemAlloced()




Function Main()
   'Sachen erstellen
   TName.Create("FDM")
   TName.Create("Decrayer")
   
   'Sachen wieder löschen
   Local n:TName
   n = TName.get("FDM")
   n.remove()
   
   n = TName.get("Decrayer")
   n.remove()
   n = Null 'Wichtig an dieser Stelle, da sonst n immer noch auf den TName mit name="Decrayer" zeigen würde und es somit nicht gelöscht würde.
End Function


Type TName
   'Global
   Global list:TList = New TList
   
   Function Create:TName(name:String)
      Local n:TName = New TName
      n.setName(name)
      Return n
   End Function
   
   Function Get:TName(name:String)
      For Local n:TName = EachIn list
         If n.getName() = name Return n
      Next
   End Function
   
   'Local

   Field _name:String
   Field _link:TLink
   
   Method New()
      _link = TName.list.addlast(Self)   
   End Method
   
   Method setName(name:String)
      Self._name = name
   End Method
   
   Method getName:String()
      Return Self._name
   End Method

   Method remove()
      RemoveLink(_link)
   End Method
End Type