BLIde 0.7.1 available

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

H&K

@Ziggy Sorry to have "Stolen" your thread ;)

@Sean

Type TBase
	Field FOne:Int =3
'---------------------------------------------
Function Create:TBase ()
	Local 	Temp:TBase 	= New TBase
		Temp.FOne		= 1
	Return Temp
End Function
EndType
'----------------------------------------------
Type TExtend	Extends TBase
Field FTwo:Int=4
'---------------------------------------------
Function Create:TExtend ()
		Local	Temp:TExtend	= New TExtend
				Temp.FTwo		= 2
		Return Temp
	End Function
End Type

Global mine:TBase	= TBase.Create()
Print mine.FOne
Global newmine:TExtend	= TExtend(mine)
Print mine.FOne
Print newmine.FOne+","+newmine.FTwo
mine.FOne:+999
newmine.FOne:+ 1
Print mine.FOne
Print newmine.FOne+","+newmine.FTwo

Run this in release and it works. But realy its not working, run in Debug to find out. This sort od thing can happen all the time if you are not "Dios de Blitz". No change that, it happens all the time if you are me ;(