SuperStrict
Local test:TBla
Try
	test:TBla = TBla.Create() 
	Print test.blub	'hier wird die Exception ausgelöst und damit der Catch-Zweig abgefangen
	Print "ich werde nie ausgeführt"
	Catch TNull:TBlitzException
		Print "catch: " + Tnull.tostring() 'hier wird das gecatchte ausgegeben. Stattdessen könnte eine Fehlerbehandlung stattfinden.
EndTry
Print "Dank dem Catch kann man mich noch lesen!"

Print test.blub

Type TBla
	Field blub:Int
	
	Function Create:TBla() 
		Return Null
	End Function
End Type

Type TTest
     Field x:Int
     Field y:Byte
     Field z:Int
End Type

Framework brl.standardio

Type TTest1
	Field x:Int
	Field y:Int
	Field z:Int
End Type

Type TTest2
	Field a:Int
	Field b:Int
	Field c:Int
End Type


Local t1:TTest1 = Null
t1.x = 3
t1.y = 2
t1.z = 1

Local t2:TTest2 = Null
Print(t2.a)
Print(t2.b)
Print(t2.c)

Local t1:TTest1 = Null
t1.x = 3
t1.y = 2
t1.z = 1

Local t2:TTest2 = TTest2(Object t1)
Print(t2.a)
Print(t2.b)
Print(t2.c)

Wenn man mich fragt ist das Ganze eine sehr schlampige Optimierung von Mark Sibly um noch die letzten Nanosekunden Ausführungszeit rauszukitzeln. 

Ich würde inzwischen Blitzprogramme nur noch im Debug-Modus verteilen, selbst im Release.

Type TTest
	Field a
End Type

Local t:TTest = New TTest
t.a = 5
Print (t.a)
Release t.a
Print (t.a)
Print("done")

Type TTest
	Field a%
End Type

t.TTest = New TTest
t\a = 5

Print (t\a)
Delete t.TTest
Print ("Ready?")
Delay 1000
Print (t\a)
Delay 1000